Mercurial > emacs
comparison lisp/ehelp.el @ 104386:2e0765155e47
Use help-print-return-message rather than the now obsolete alias.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 21 Aug 2009 07:24:26 +0000 |
parents | 7043df4031e9 |
children | 73bff1db57b6 |
comparison
equal
deleted
inserted
replaced
104385:bc2e79adb401 | 104386:2e0765155e47 |
---|---|
290 ;;;###autoload | 290 ;;;###autoload |
291 (defun electric-helpify (fun &optional name) | 291 (defun electric-helpify (fun &optional name) |
292 (let ((name (or name "*Help*"))) | 292 (let ((name (or name "*Help*"))) |
293 (if (save-window-excursion | 293 (if (save-window-excursion |
294 ;; kludge-o-rama | 294 ;; kludge-o-rama |
295 (let* ((p (symbol-function 'print-help-return-message)) | 295 (let* ((p (symbol-function 'help-print-return-message)) |
296 (b (get-buffer name)) | 296 (b (get-buffer name)) |
297 (m (buffer-modified-p b))) | 297 (m (buffer-modified-p b))) |
298 (and b (not (get-buffer-window b)) | 298 (and b (not (get-buffer-window b)) |
299 (setq b nil)) | 299 (setq b nil)) |
300 (unwind-protect | 300 (unwind-protect |
323 ;;>> things like momentary-string-display) | 323 ;;>> things like momentary-string-display) |
324 (and b | 324 (and b |
325 (save-excursion | 325 (save-excursion |
326 (set-buffer b) | 326 (set-buffer b) |
327 (set-buffer-modified-p t))) | 327 (set-buffer-modified-p t))) |
328 (fset 'print-help-return-message 'ignore) | 328 (fset 'help-print-return-message 'ignore) |
329 (call-interactively fun) | 329 (call-interactively fun) |
330 (and (get-buffer name) | 330 (and (get-buffer name) |
331 (get-buffer-window (get-buffer name)) | 331 (get-buffer-window (get-buffer name)) |
332 (or (not b) | 332 (or (not b) |
333 (not (eq b (get-buffer name))) | 333 (not (eq b (get-buffer name))) |
334 (not (buffer-modified-p b))))) | 334 (not (buffer-modified-p b))))) |
335 (fset 'print-help-return-message p) | 335 (fset 'help-print-return-message p) |
336 (and b (buffer-name b) | 336 (and b (buffer-name b) |
337 (save-excursion | 337 (save-excursion |
338 (set-buffer b) | 338 (set-buffer b) |
339 (set-buffer-modified-p m)))))) | 339 (set-buffer-modified-p m)))))) |
340 (with-electric-help 'ignore name t)))) | 340 (with-electric-help 'ignore name t)))) |