diff options
Diffstat (limited to 'lisp/eshell')
-rw-r--r-- | lisp/eshell/em-script.el | 3 | ||||
-rw-r--r-- | lisp/eshell/em-smart.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-arg.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-cmd.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-mode.el | 2 |
5 files changed, 4 insertions, 10 deletions
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el index e0bcd8b099f..06ddda1424f 100644 --- a/lisp/eshell/em-script.el +++ b/lisp/eshell/em-script.el @@ -90,8 +90,7 @@ This includes when running `eshell-command'." "Execute a series of Eshell commands in FILE, passing ARGS. Comments begin with `#'." (let ((orig (point)) - (here (point-max)) - (inhibit-point-motion-hooks t)) + (here (point-max))) (goto-char (point-max)) (with-silent-modifications ;; FIXME: Why not use a temporary buffer and avoid this diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el index 6768cee4c34..c52ce318997 100644 --- a/lisp/eshell/em-smart.el +++ b/lisp/eshell/em-smart.el @@ -197,8 +197,7 @@ The options are `begin', `after' or `end'." (defun eshell-smart-scroll-window (wind _start) "Scroll the given Eshell window WIND accordingly." (unless eshell-currently-handling-window - (let ((inhibit-point-motion-hooks t) - (eshell-currently-handling-window t)) + (let ((eshell-currently-handling-window t)) (with-selected-window wind (eshell-smart-redisplay))))) diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el index 576d32b8c5d..f87cc2f20aa 100644 --- a/lisp/eshell/esh-arg.el +++ b/lisp/eshell/esh-arg.el @@ -285,8 +285,7 @@ Point is left at the end of the arguments." (save-restriction (goto-char beg) (narrow-to-region beg end) - (let ((inhibit-point-motion-hooks t) - (args (list t)) + (let ((args (list t)) delim) (with-silent-modifications (remove-text-properties (point-min) (point-max) diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 413336e3eb5..3f3a1616eee 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -372,8 +372,7 @@ The value returned is the last form in BODY." ;; Since parsing relies partly on buffer-local state ;; (e.g. that of `eshell-parse-argument-hook'), we need to ;; perform the parsing in the Eshell buffer. - (let ((begin (point)) end - (inhibit-point-motion-hooks t)) + (let ((begin (point)) end) (with-silent-modifications (insert reg) (setq end (point)) diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index 8f11e6f04a4..92523fd99ea 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el @@ -598,7 +598,6 @@ newline." ;; Note that the input string does not include its terminal newline. (let ((proc-running-p (and (eshell-head-process) (not queue-p))) - (inhibit-point-motion-hooks t) (inhibit-modification-hooks t)) (unless (and proc-running-p (not (eq (process-status @@ -687,7 +686,6 @@ newline." This is done after all necessary filtering has been done." (let ((oprocbuf (if process (process-buffer process) (current-buffer))) - (inhibit-point-motion-hooks t) (inhibit-modification-hooks t)) (when (and string oprocbuf (buffer-name oprocbuf)) (with-current-buffer oprocbuf |