From ba8972b69461ef31203517d70f1c51bcd1c01cd7 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 7 Nov 2002 07:32:07 +0000 Subject: [PATCH] Fix previous change. --- lisp/composite.el | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) diff --git a/lisp/composite.el b/lisp/composite.el index cbaeb182d58..18c1cc02eee 100644 --- a/lisp/composite.el +++ b/lisp/composite.el @@ -385,23 +385,19 @@ See also the command `toggle-auto-composition'.") ;; We use this to preserve or protect things when modifying text properties. (defmacro save-buffer-state (varlist &rest body) "Bind variables according to VARLIST and eval BODY restoring buffer state." - (let ((modified (make-symbol "modified"))) - `(let* ,(append varlist - `((,modified (buffer-modified-p)) - (buffer-undo-list t) - (inhibit-read-only t) - (inhibit-point-motion-hooks t) - (inhibit-modification-hooks t) - deactivate-mark - buffer-file-name - buffer-file-truename)) - (progn - ,@body) - (unless ,modified - (restore-buffer-modified-p nil))))) + `(let* ,(append varlist + '((modified (buffer-modified-p)) (buffer-undo-list t) + (inhibit-read-only t) (inhibit-point-motion-hooks t) + (inhibit-modification-hooks t) + deactivate-mark buffer-file-name buffer-file-truename)) + ,@body + (unless modified + (restore-buffer-modified-p nil)))) (put 'save-buffer-state 'lisp-indent-function 1) - (def-edebug-spec save-buffer-state let)) - + ;; Fixme: This makes bootstrapping fails by this error. + ;; Symbol's function definition is void: eval-defun + ;;(def-edebug-spec save-buffer-state let) + ) (defvar auto-composition-chunk-size 500 "*Automatic composition chunks of this many characters, or smaller.") -- 2.39.5