diff options
| author | Leo Liu | 2016-04-30 23:35:27 +0800 |
|---|---|---|
| committer | Leo Liu | 2016-04-30 23:36:47 +0800 |
| commit | b755d988b498b19bd9a70a5dd8c6597ceb14a372 (patch) | |
| tree | 1ea95215515a26f5689a778eff3d115028ba294f | |
| parent | b52ebd4f20ecc3f207a88cf7ac18c745b6e8ef80 (diff) | |
| download | emacs-b755d988b498b19bd9a70a5dd8c6597ceb14a372.tar.gz emacs-b755d988b498b19bd9a70a5dd8c6597ceb14a372.zip | |
Autoload cursor-sensor-inhibit (bug#23406)
* lisp/emacs-lisp/cursor-sensor.el (cursor-sensor-inhibit): Autoload.
* lisp/isearch.el (isearch-update): Remove boundp check.
| -rw-r--r-- | lisp/emacs-lisp/cursor-sensor.el | 1 | ||||
| -rw-r--r-- | lisp/isearch.el | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cursor-sensor.el b/lisp/emacs-lisp/cursor-sensor.el index f1ab82ecc4a..2231179de1c 100644 --- a/lisp/emacs-lisp/cursor-sensor.el +++ b/lisp/emacs-lisp/cursor-sensor.el | |||
| @@ -31,6 +31,7 @@ | |||
| 31 | 31 | ||
| 32 | ;;; Code: | 32 | ;;; Code: |
| 33 | 33 | ||
| 34 | ;;;###autoload | ||
| 34 | (defvar cursor-sensor-inhibit nil) | 35 | (defvar cursor-sensor-inhibit nil) |
| 35 | 36 | ||
| 36 | (defun cursor-sensor--intangible-p (pos) | 37 | (defun cursor-sensor--intangible-p (pos) |
diff --git a/lisp/isearch.el b/lisp/isearch.el index 48354d39d48..17b5ef14cb6 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -840,7 +840,6 @@ See the command `isearch-forward-symbol' for more information." | |||
| 840 | (isearch-update))))) | 840 | (isearch-update))))) |
| 841 | 841 | ||
| 842 | 842 | ||
| 843 | (defvar cursor-sensor-inhibit) | ||
| 844 | ;; isearch-mode only sets up incremental search for the minor mode. | 843 | ;; isearch-mode only sets up incremental search for the minor mode. |
| 845 | ;; All the work is done by the isearch-mode commands. | 844 | ;; All the work is done by the isearch-mode commands. |
| 846 | 845 | ||
| @@ -973,8 +972,7 @@ The last thing is to trigger a new round of lazy highlighting." | |||
| 973 | (setq cursor-sensor-inhibit (delq 'isearch cursor-sensor-inhibit)))) | 972 | (setq cursor-sensor-inhibit (delq 'isearch cursor-sensor-inhibit)))) |
| 974 | (setq isearch--current-buffer (current-buffer)) | 973 | (setq isearch--current-buffer (current-buffer)) |
| 975 | (make-local-variable 'cursor-sensor-inhibit) | 974 | (make-local-variable 'cursor-sensor-inhibit) |
| 976 | (unless (boundp 'cursor-sensor-inhibit) | 975 | (setq cursor-sensor-inhibit nil) |
| 977 | (setq cursor-sensor-inhibit nil)) | ||
| 978 | ;; Suspend things like cursor-intangible during Isearch so we can search | 976 | ;; Suspend things like cursor-intangible during Isearch so we can search |
| 979 | ;; even within intangible text. | 977 | ;; even within intangible text. |
| 980 | (push 'isearch cursor-sensor-inhibit)) | 978 | (push 'isearch cursor-sensor-inhibit)) |