summaryrefslogtreecommitdiff
path: root/lisp/isearch.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2018-04-20 18:55:04 -0400
committerGlenn Morris <rgm@gnu.org>2018-04-20 18:55:04 -0400
commit18de2ada243653ece98b18044233e5d29eee5903 (patch)
treedbac02f9fa7ee6e7f6bd592bd2f775be4cdcf5f6 /lisp/isearch.el
parent9c3eeba4db26ddaeead100beea7a96f9fa640918 (diff)
downloademacs-18de2ada243653ece98b18044233e5d29eee5903.tar.gz
More alias-related tedium
* lisp/comint.el (comint-scroll-to-bottom-on-output): * lisp/completion.el (cmpl-syntax-table): * lisp/erc/erc-button.el (erc-button-google-url): * lisp/font-lock.el (font-lock-reference-face): * lisp/hfy-cmap.el (hfy-fallback-colour-map, hfy-rgb-txt-colour-map): * lisp/isearch.el (isearch-regexp-function, isearch-new-word): * lisp/startup.el (argv): * lisp/version.el (emacs-bzr-version): * lisp/org/org.el (org-CUA-compatible) (org-popup-calendar-for-date-prompt): Move aliases before targets, to silence new compiler warning.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r--lisp/isearch.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 0874ebb54e6..db196e00efb 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -562,6 +562,9 @@ This is like `describe-bindings', but displays only Isearch keys."
(defvar isearch-forward nil) ; Searching in the forward direction.
(defvar isearch-regexp nil) ; Searching for a regexp.
+;; We still support setting this to t for backwards compatibility.
+(define-obsolete-variable-alias 'isearch-word
+ 'isearch-regexp-function "25.1")
(defvar isearch-regexp-function nil
"Regexp-based search mode for words/symbols.
If the value is a function (e.g. `isearch-symbol-regexp'), it is
@@ -573,9 +576,6 @@ specifies the prefix string displayed in the search message.
This variable is set and changed during isearch. To change the
default behavior used for searches, see `search-default-mode'
instead.")
-;; We still support setting this to t for backwards compatibility.
-(define-obsolete-variable-alias 'isearch-word
- 'isearch-regexp-function "25.1")
(defvar isearch-lax-whitespace t
"If non-nil, a space will match a sequence of whitespace chars.
@@ -1242,13 +1242,14 @@ If MSG is non-nil, use variable `isearch-message', otherwise `isearch-string'."
(length succ-msg)
0))))
+(define-obsolete-variable-alias 'isearch-new-word
+ 'isearch-new-regexp-function "25.1")
+
(defvar isearch-new-regexp-function nil
"Holds the next `isearch-regexp-function' inside `with-isearch-suspended'.
If this is set inside code wrapped by the macro
`with-isearch-suspended', then the value set will be used as the
`isearch-regexp-function' once isearch resumes.")
-(define-obsolete-variable-alias 'isearch-new-word
- 'isearch-new-regexp-function "25.1")
(defvar isearch-suspended nil)