Make display-buffer-alist regexps case-sensitive #2619
This commit is contained in:
parent
88dd15e204
commit
86e03c04ba
1 changed files with 9 additions and 0 deletions
|
@ -26,6 +26,15 @@
|
||||||
;;
|
;;
|
||||||
;;; Core functions
|
;;; Core functions
|
||||||
|
|
||||||
|
(defadvice! +popup--make-case-sensitive-a (orig-fn &rest args)
|
||||||
|
"Make regexps in `display-buffer-alist' case-sensitive.
|
||||||
|
|
||||||
|
To reduce fewer edge cases and improve performance when `display-buffer-alist'
|
||||||
|
grows larger."
|
||||||
|
:around #'display-buffer-assq-regexp
|
||||||
|
(let (case-fold-search)
|
||||||
|
(apply orig-fn args)))
|
||||||
|
|
||||||
;; Don't try to resize popup windows
|
;; Don't try to resize popup windows
|
||||||
(advice-add #'balance-windows :around #'+popup-save-a)
|
(advice-add #'balance-windows :around #'+popup-save-a)
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue