diff options
Diffstat (limited to 'lisp/emulation/edt.el')
| -rw-r--r-- | lisp/emulation/edt.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index a11e06130a5..6457925efa6 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -2657,8 +2657,7 @@ G-C-\\: Split Window | FNDNXT | Yank | CUT | (progn (message "%s..." (capitalize (symbol-name fun))) (and b - (save-excursion - (set-buffer b) + (with-current-buffer b (set-buffer-modified-p t))) (fset 'help-print-return-message 'ignore) (call-interactively fun) @@ -2669,8 +2668,7 @@ G-C-\\: Split Window | FNDNXT | Yank | CUT | (not (buffer-modified-p b))))) (fset 'help-print-return-message p) (and b (buffer-name b) - (save-excursion - (set-buffer b) + (with-current-buffer b (set-buffer-modified-p m)))))) (with-electric-help 'delete-other-windows name t)))) |