comparison lisp/help.el @ 420:41dbb7a9d5f2 r21-2-18

Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
459 (defun help-buffer-name (name) 459 (defun help-buffer-name (name)
460 "Return a name for a Help buffer using string NAME for context." 460 "Return a name for a Help buffer using string NAME for context."
461 (if (and (integerp help-max-help-buffers) 461 (if (and (integerp help-max-help-buffers)
462 (> help-max-help-buffers 0) 462 (> help-max-help-buffers 0)
463 (stringp name)) 463 (stringp name))
464 (format "*%s: %s*" help-buffer-prefix-string name) 464 (if help-buffer-prefix-string
465 (format "*%s: %s*" help-buffer-prefix-string name)
466 (format "*%s*" name))
465 (format "*%s*" help-buffer-prefix-string))) 467 (format "*%s*" help-buffer-prefix-string)))
466 468
467 ;; Use this function for displaying help when C-h something is pressed 469 ;; Use this function for displaying help when C-h something is pressed
468 ;; or in similar situations. Do *not* use it when you are displaying 470 ;; or in similar situations. Do *not* use it when you are displaying
469 ;; a help message and then prompting for input in the minibuffer -- 471 ;; a help message and then prompting for input in the minibuffer --