Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 59463afc5666
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
3592 (insert comp)) 3592 (insert comp))
3593 (t 3593 (t
3594 (insert string) 3594 (insert string)
3595 (if (not comp) 3595 (if (not comp)
3596 (message "No matching groups") 3596 (message "No matching groups")
3597 (pop-to-buffer "*Completions*") 3597 (save-selected-window
3598 (buffer-disable-undo (current-buffer)) 3598 (pop-to-buffer "*Completions*")
3599 (let ((buffer-read-only nil)) 3599 (buffer-disable-undo (current-buffer))
3600 (erase-buffer) 3600 (let ((buffer-read-only nil))
3601 (let ((standard-output (current-buffer))) 3601 (erase-buffer)
3602 (display-completion-list (sort completions 'string<))) 3602 (let ((standard-output (current-buffer)))
3603 (goto-char (point-min)) 3603 (display-completion-list (sort completions 'string<)))
3604 (pop-to-buffer cur))))))) 3604 (goto-char (point-min))
3605 (delete-region (point) (progn (forward-line 3) (point))))))))))
3605 3606
3606 ;;; Help stuff. 3607 ;;; Help stuff.
3607 3608
3608 (defun message-talkative-question (ask question show &rest text) 3609 (defun message-talkative-question (ask question show &rest text)
3609 "Call FUNCTION with argument QUESTION, displaying the rest of the arguments in a temporary buffer if SHOW. 3610 "Call FUNCTION with argument QUESTION, displaying the rest of the arguments in a temporary buffer if SHOW.