diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 12:25:09 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 12:25:09 -0400 |
| commit | 4840b91e41329cd1221e6224142af9ae13fd7606 (patch) | |
| tree | d5754fc6bad43232b04b88ac86e9e73bcbe7aa7c /lisp/progmodes/antlr-mode.el | |
| parent | d28581101adb967b32b2d1de93aba34ce69e15d2 (diff) | |
| download | emacs-4840b91e41329cd1221e6224142af9ae13fd7606.tar.gz emacs-4840b91e41329cd1221e6224142af9ae13fd7606.tar.bz2 emacs-4840b91e41329cd1221e6224142af9ae13fd7606.zip | |
Remove aliases of `with-silent-modifications`
There were many reinventions of `with-silent-modifications` (tho
many of them weren't reinventions but copy&paste of code from
font-lock, IIUC). Now that those don't even need to let-bind
`inhibit-point-motion-hooks` they're really just obsolete.
* lisp/font-lock.el (save-buffer-state): Delete macro.
(font-lock-unfontify-region, font-lock-default-fontify-region):
Use `with-silent-modifications` instead.
(font-lock-after-change-function, font-lock-fontify-block): Don't
let-bind `inhibit-point-motion-hooks`.
* lisp/htmlfontify.el (hfy-save-buffer-state): Delete macro.
(hfy-mark-trailing-whitespace, hfy-unmark-trailing-whitespace):
Use `with-silent-modifications` instead.
* lisp/jit-lock.el (with-buffer-prepared-for-jit-lock): Delete macro.
(jit-lock--debug-fontify, jit-lock-refontify, jit-lock-function)
(jit-lock-fontify-now, jit-lock-force-redisplay)
(jit-lock-deferred-fontify, jit-lock-context-fontify)
(jit-lock-after-change): Use `with-silent-modifications` instead.
* lisp/progmodes/antlr-mode.el (save-buffer-state-x): Delete macro.
(antlr-hide-actions): Use `with-silent-modifications` instead.
* lisp/progmodes/hideshow.el (hs-life-goes-on): Don't
let-bind `inhibit-point-motion-hooks`.
Diffstat (limited to 'lisp/progmodes/antlr-mode.el')
| -rw-r--r-- | lisp/progmodes/antlr-mode.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el index 5002a3bbfae..733deebdf53 100644 --- a/lisp/progmodes/antlr-mode.el +++ b/lisp/progmodes/antlr-mode.el @@ -83,14 +83,6 @@ (require 'easymenu)) (require 'cc-mode) -;; More compile-time-macros -(eval-when-compile - (defmacro save-buffer-state-x (&rest body) ; similar to EMACS/lazy-lock.el - (declare (debug t) (indent 0)) - `(let ((inhibit-point-motion-hooks t)) - (with-silent-modifications - ,@body)))) - (defvar outline-level) (defvar imenu-use-markers) (defvar imenu-create-index-function) @@ -1320,7 +1312,7 @@ actions if ARG is 0 or negative. See `antlr-action-visibility'. Display a message unless optional argument SILENT is non-nil." (interactive "p") - (save-buffer-state-x + (with-silent-modifications (if (> arg 0) (let ((regexp (if (= arg 1) "[]}]" "}")) (diff (and antlr-action-visibility |