diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-03-10 10:59:52 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-04-15 10:06:36 +0200 |
| commit | 59ecf25fc86081c9df05b84194c36414c225c265 (patch) | |
| tree | 645ebdd791e44f7e53175ef13a2514baf59267c1 /lisp/window.el | |
| parent | ea54062fdf013768fbc64ad20846cba55af44909 (diff) | |
| download | emacs-59ecf25fc86081c9df05b84194c36414c225c265.tar.gz emacs-59ecf25fc86081c9df05b84194c36414c225c265.tar.bz2 emacs-59ecf25fc86081c9df05b84194c36414c225c265.zip | |
* window.el (display-buffer-assq-regexp): Use buffer-match
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/lisp/window.el b/lisp/window.el index dd297a31698..2da2f8bb2c8 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -7498,19 +7498,12 @@ all fail. It should never be set by programs or users. See (defun display-buffer-assq-regexp (buffer-name alist action) "Retrieve ALIST entry corresponding to BUFFER-NAME. This returns the cdr of the alist entry ALIST if either its key -is a string that matches BUFFER-NAME, as reported by -`string-match-p'; or if the key is a function that returns -non-nil when called with three arguments: the ALIST key, -BUFFER-NAME and ACTION. ACTION should have the form of the -action argument passed to `display-buffer'." +satisfied a BUFFER-NAME per `buffer-match'. ACTION should have +the form of the action argument passed to `display-buffer'." (catch 'match (dolist (entry alist) - (let ((key (car entry))) - (when (or (and (stringp key) - (string-match-p key buffer-name)) - (and (functionp key) - (funcall key buffer-name action))) - (throw 'match (cdr entry))))))) + (when (buffer-match-p (car entry) buffer-name action) + (throw 'match (cdr entry)))))) (defvar display-buffer--same-window-action '(display-buffer-same-window |