aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLeo Liu2016-04-30 23:35:27 +0800
committerLeo Liu2016-04-30 23:36:47 +0800
commitb755d988b498b19bd9a70a5dd8c6597ceb14a372 (patch)
tree1ea95215515a26f5689a778eff3d115028ba294f
parentb52ebd4f20ecc3f207a88cf7ac18c745b6e8ef80 (diff)
downloademacs-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.el1
-rw-r--r--lisp/isearch.el4
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))