Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 78478c60bfcd
children 262b8bb4a523
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
667 (search-forward " " nil t) 667 (search-forward " " nil t)
668 (insert "\n"))) 668 (insert "\n")))
669 ;; XEmacs addition 669 ;; XEmacs addition
670 (princ "\n\n\nRecent minibuffer messages (most recent first):\n\n") 670 (princ "\n\n\nRecent minibuffer messages (most recent first):\n\n")
671 (save-excursion 671 (save-excursion
672 (let ((buffer (get-buffer " *Message-Log*")) 672 (let ((buffer (get-buffer-create " *Message-Log*"))
673 (count 0) 673 (count 0)
674 oldpoint) 674 oldpoint)
675 (set-buffer buffer) 675 (set-buffer buffer)
676 (goto-char (point-max)) 676 (goto-char (point-max))
677 (set-buffer standard-output) 677 (set-buffer standard-output)