diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 13:54:36 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 13:54:36 -0400 |
| commit | c61010567f418e38dad2fcdc4e102c0561ce23c3 (patch) | |
| tree | 2681a2afb1bfe3970d39b29ea38360e5fcf8b455 /lisp/progmodes/verilog-mode.el | |
| parent | 3c7f05133c80ccb48b5adeeed28a36a4039bfe45 (diff) | |
| download | emacs-c61010567f418e38dad2fcdc4e102c0561ce23c3.tar.gz emacs-c61010567f418e38dad2fcdc4e102c0561ce23c3.tar.bz2 emacs-c61010567f418e38dad2fcdc4e102c0561ce23c3.zip | |
verilog-mode.el: Don't bind `inhibit-point-motion-hooks`
Keep binding it in Emacs<25 but not in Emacs≥25 (where such bindings
are redundant and the var is declared obsolete).
* lisp/progmodes/verilog-mode.el (verilog-save-buffer-state):
Don't bind `inhibit-point-motion-hooks` if Emacs≥25.
(verilog-save-font-no-change-functions): Same, and refrain from
binding `before/after-change-functions` as well while we're at it,
since `inhibit-modification-hooks` already covers it in Emacs≥25.
Diffstat (limited to 'lisp/progmodes/verilog-mode.el')
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index fa799a0fb37..d6b8edaa365 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -3409,7 +3409,8 @@ A change is considered significant if it affects the buffer text in any way that isn't completely restored again. Any user-visible changes to the buffer must not be within a `verilog-save-buffer-state'." - `(let ((inhibit-point-motion-hooks t) + `(let (,@(unless (>= emacs-major-version 25) + '((inhibit-point-motion-hooks t))) (verilog-no-change-functions t)) ,(if (fboundp 'with-silent-modifications) `(with-silent-modifications ,@body) @@ -3455,11 +3456,13 @@ For insignificant changes, see instead `verilog-save-buffer-state'." (run-hook-with-args 'before-change-functions (point-min) (point-max)) (unwind-protect ;; Must inhibit and restore hooks before restoring font-lock - (let* ((inhibit-point-motion-hooks t) + (let* (,@(unless (>= emacs-major-version 25) + '((inhibit-point-motion-hooks t) ;Obsolete since 25.1 + ;; XEmacs and pre-Emacs 21 ignore + ;; `inhibit-modification-hooks'. + before-change-functions after-change-functions)) (inhibit-modification-hooks t) - (verilog-no-change-functions t) - ;; XEmacs and pre-Emacs 21 ignore inhibit-modification-hooks. - before-change-functions after-change-functions) + (verilog-no-change-functions t)) (progn ,@body)) ;; Unwind forms (run-hook-with-args 'after-change-functions (point-min) (point-max) |