diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-08-21 07:24:26 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-08-21 07:24:26 +0000 |
| commit | d5d105e863bbbcaad1cdb89b4cd4e74fd5815fe6 (patch) | |
| tree | c63b6d50f533e1b8329c289f09f3e4d3de53eeb9 /lisp/emulation/edt.el | |
| parent | a8ab722f607b850b8dba6eb17674df18861f73d6 (diff) | |
| download | emacs-d5d105e863bbbcaad1cdb89b4cd4e74fd5815fe6.tar.gz | |
Use help-print-return-message rather than the now obsolete alias.
Diffstat (limited to 'lisp/emulation/edt.el')
| -rw-r--r-- | lisp/emulation/edt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index a14ac3039f9..68ffea55e80 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -2648,7 +2648,7 @@ G-C-\\: Split Window | FNDNXT | Yank | CUT | (defun edt-electric-helpify (fun) (let ((name "*Help*")) (if (save-window-excursion - (let* ((p (symbol-function 'print-help-return-message)) + (let* ((p (symbol-function 'help-print-return-message)) (b (get-buffer name)) (m (buffer-modified-p b))) (and b (not (get-buffer-window b)) @@ -2660,14 +2660,14 @@ G-C-\\: Split Window | FNDNXT | Yank | CUT | (save-excursion (set-buffer b) (set-buffer-modified-p t))) - (fset 'print-help-return-message 'ignore) + (fset 'help-print-return-message 'ignore) (call-interactively fun) (and (get-buffer name) (get-buffer-window (get-buffer name)) (or (not b) (not (eq b (get-buffer name))) (not (buffer-modified-p b))))) - (fset 'print-help-return-message p) + (fset 'help-print-return-message p) (and b (buffer-name b) (save-excursion (set-buffer b) |