diff options
| author | Michael Heerdegen | 2020-05-01 02:08:17 +0200 |
|---|---|---|
| committer | Michael Heerdegen | 2020-05-01 21:16:30 +0200 |
| commit | c59e878439833d89998e03134ee9060f9c449fd9 (patch) | |
| tree | 167083eb7993fe00a1d7682d1b6b32ca0af297fb | |
| parent | 145aab0672ae259736ee9230f8e0ff4effa5f4fd (diff) | |
| download | emacs-c59e878439833d89998e03134ee9060f9c449fd9.tar.gz emacs-c59e878439833d89998e03134ee9060f9c449fd9.zip | |
Inhibit modification hooks when saving eieio-persistent's
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-save): Bind
inhibit-modification-hooks -> t.
| -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." | |||
| 473 | (let* ((cfn (or file (oref this file))) | 473 | (let* ((cfn (or file (oref this file))) |
| 474 | (default-directory (file-name-directory cfn))) | 474 | (default-directory (file-name-directory cfn))) |
| 475 | (cl-letf ((standard-output (current-buffer)) | 475 | (cl-letf ((standard-output (current-buffer)) |
| 476 | ((oref this file) ;FIXME: Why change it? | 476 | (inhibit-modification-hooks t) |
| 477 | ((oref this file) ;FIXME: Why change it? | ||
| 477 | (if file | 478 | (if file |
| 478 | ;; FIXME: Makes a name relative to (oref this file), | 479 | ;; FIXME: Makes a name relative to (oref this file), |
| 479 | ;; whereas I think it should be relative to cfn. | 480 | ;; whereas I think it should be relative to cfn. |