procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use help-print-return-message rather than the now obsolete alias.

Browse source
This commit is contained in:
Glenn Morris 2009-08-21 07:24:26 +00:00
parent a8ab722f60
commit d5d105e863
15 changed files with 53 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emulation/edt.el
View file

@ -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)