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/ehelp.el | |
| parent | a8ab722f607b850b8dba6eb17674df18861f73d6 (diff) | |
| download | emacs-d5d105e863bbbcaad1cdb89b4cd4e74fd5815fe6.tar.gz | |
Use help-print-return-message rather than the now obsolete alias.
Diffstat (limited to 'lisp/ehelp.el')
| -rw-r--r-- | lisp/ehelp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 3d8953f1590..d8e7ea57deb 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -292,7 +292,7 @@ will select it.)" (let ((name (or name "*Help*"))) (if (save-window-excursion ;; kludge-o-rama - (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)) @@ -325,14 +325,14 @@ will select it.)" (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) |