diff options
author | Alan Mackenzie <acm@muc.de> | 2015-11-18 21:14:30 +0000 |
---|---|---|
committer | Alan Mackenzie <acm@muc.de> | 2015-12-04 18:15:27 +0000 |
commit | bf510d8ab047fc44fe7ed3521944c23b9476375b (patch) | |
tree | eabf3bcd0324b8fadb7892f30844ff4c4baae4cb | |
parent | 64c57303658f69b019c4599f8c960a5623855410 (diff) | |
download | emacs-bf510d8ab047fc44fe7ed3521944c23b9476375b.tar.gz |
lisp/isearch.el: Eliminate macro isearch-call-message, replacing with funcall.
-rw-r--r-- | lisp/isearch.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 39d573cc01f..12ded02345f 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -177,11 +177,6 @@ is non-nil if the user quits the search.") "Function to call to display the search prompt. If nil, use function `isearch-message'.") -(defmacro isearch-call-message (&optional cqh ellip) - `(if isearch-message-function - (funcall isearch-message-function ,cqh ,ellip) - (isearch-message ,cqh ,ellip))) - (defvar isearch-wrap-function nil "Function to call to wrap the search when search is failed. If nil, move point to the beginning of the buffer for a forward search, @@ -983,7 +978,7 @@ The last thing it does is to run `isearch-update-post-hook'." (null executing-kbd-macro)) (progn (if (not (input-pending-p)) - (isearch-call-message)) + (funcall (or isearch-message-function #'isearch-message))) (if (and isearch-slow-terminal-mode (not (or isearch-small-window (pos-visible-in-window-p nil nil nil t)))) @@ -1317,7 +1312,7 @@ You can update the global isearch variables by setting new values to isearch-case-fold-search isearch-new-case-fold) ;; Restore the minibuffer message before moving point. - (isearch-call-message nil t) + (funcall (or isearch-message-function #'isearch-message) nil t) ;; Set point at the start (end) of old match if forward (backward), ;; so after exiting minibuffer isearch resumes at the start (end) @@ -1937,7 +1932,8 @@ If search string is empty, just beep." (length isearch-string)))) isearch-message (mapconcat 'isearch-text-char-description isearch-string ""))) - (isearch-call-message nil t) ; Do this before moving point. + ;; Do the following before moving point. + (funcall (or isearch-message-function #'isearch-message) nil t) ;; Use the isearch-other-end as new starting point to be able ;; to find the remaining part of the search string again. ;; This is like what `isearch-search-and-update' does, @@ -2114,7 +2110,8 @@ With argument, add COUNT copies of the character." (setq isearch-case-fold-search (isearch-no-upper-case-p isearch-string isearch-regexp)))) ;; Not regexp, not reverse, or no match at point. - (isearch-call-message nil t) ; Do this before moving point. + ;; Do the following before moving point. + (funcall (or isearch-message-function #'isearch-message) nil t) (if (and isearch-other-end (not isearch-adjusted)) (goto-char (if isearch-forward isearch-other-end (min isearch-opoint @@ -2468,7 +2465,7 @@ Search is updated accordingly." (isearch-ring-adjust1 advance) (if search-ring-update (progn - (isearch-call-message nil t) + (funcall (or isearch-message-function #'isearch-message) nil t) (isearch-search) (isearch-push-state) (isearch-update)) |