diff options
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index 010a2b673e1..2cb1f614ce3 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el | |||
| @@ -473,8 +473,7 @@ 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 | (inhibit-modification-hooks t) | 476 | ((oref this file) ;FIXME: Why change it? |
| 477 | ((oref this file) ;FIXME: Why change it? | ||
| 478 | (if file | 477 | (if file |
| 479 | ;; FIXME: Makes a name relative to (oref this file), | 478 | ;; FIXME: Makes a name relative to (oref this file), |
| 480 | ;; whereas I think it should be relative to cfn. | 479 | ;; whereas I think it should be relative to cfn. |