Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents c5d627a313b1
children 7df0dd720c89
comparison
equal deleted inserted replaced
277:cfdf3ff11843 278:90d73dddcdc4
760 (goto-char (point-min)) 760 (goto-char (point-min))
761 (insert "Recent keystrokes:\n\n") 761 (insert "Recent keystrokes:\n\n")
762 (while (progn (move-to-column 50) (not (eobp))) 762 (while (progn (move-to-column 50) (not (eobp)))
763 (search-forward " " nil t) 763 (search-forward " " nil t)
764 (insert "\n"))) 764 (insert "\n")))
765 ;; XEmacs addition 765 ;; XEmacs addition: copy the messages from " *Message-Log*",
766 ;; reversing their order and handling multiline messages
767 ;; correctly.
766 (princ "\n\n\nRecent minibuffer messages (most recent first):\n\n") 768 (princ "\n\n\nRecent minibuffer messages (most recent first):\n\n")
767 (save-excursion 769 (save-excursion
768 (let ((buffer (get-buffer-create " *Message-Log*")) 770 (let ((buffer (get-buffer-create " *Message-Log*"))
769 (count 0) 771 (count 0)
770 oldpoint) 772 oldpoint extent)
771 (set-buffer buffer) 773 (goto-char (point-max buffer) buffer)
772 (goto-char (point-max))
773 (set-buffer standard-output) 774 (set-buffer standard-output)
774 (while (and (> (point buffer) (point-min buffer)) 775 (while (and (not (bobp buffer))
775 (< count view-lossage-message-count)) 776 (< count view-lossage-message-count))
776 (setq oldpoint (point buffer)) 777 (setq oldpoint (point buffer))
777 (forward-line -1 buffer) 778 (setq extent (extent-at oldpoint buffer
779 'message-multiline nil 'before))
780 ;; If the message was multiline, move all the way to the
781 ;; beginning.
782 (if extent
783 (goto-char (extent-start-position extent) buffer)
784 (forward-line -1 buffer))
778 (insert-buffer-substring buffer (point buffer) oldpoint) 785 (insert-buffer-substring buffer (point buffer) oldpoint)
779 (setq count (1+ count))))))) 786 (incf count))))))
780 787
781 (define-function 'help 'help-for-help) 788 (define-function 'help 'help-for-help)
782 789
783 (make-help-screen help-for-help 790 (make-help-screen help-for-help
784 "A B C F I K L M N P S T V W C-c C-d C-f C-i C-k C-n C-w; ? for more help:" 791 "A B C F I K L M N P S T V W C-c C-d C-f C-i C-k C-n C-w; ? for more help:"