diff options
| author | Michael Heerdegen <michael_heerdegen@web.de> | 2020-05-01 02:08:17 +0200 |
|---|---|---|
| committer | Michael Heerdegen <michael_heerdegen@web.de> | 2020-05-01 21:16:30 +0200 |
| commit | c59e878439833d89998e03134ee9060f9c449fd9 (patch) | |
| tree | 167083eb7993fe00a1d7682d1b6b32ca0af297fb /lisp/emacs-lisp/eieio-base.el | |
| parent | 145aab0672ae259736ee9230f8e0ff4effa5f4fd (diff) | |
| download | emacs-c59e878439833d89998e03134ee9060f9c449fd9.tar.gz | |
Inhibit modification hooks when saving eieio-persistent's
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-save): Bind
inhibit-modification-hooks -> t.
Diffstat (limited to 'lisp/emacs-lisp/eieio-base.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index 2cb1f614ce3..010a2b673e1 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el @@ -473,7 +473,8 @@ instance." (let* ((cfn (or file (oref this file))) (default-directory (file-name-directory cfn))) (cl-letf ((standard-output (current-buffer)) - ((oref this file) ;FIXME: Why change it? + (inhibit-modification-hooks t) + ((oref this file) ;FIXME: Why change it? (if file ;; FIXME: Makes a name relative to (oref this file), ;; whereas I think it should be relative to cfn. |