mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(mh-folder-hist): New var.

Browse Source 
(mh-prompt-for-folder): Use it and pass `default' to completing-read.
This commit is contained in:
Stefan Monnier 2001-04-03 16:02:45 +00:00
parent 4c1dadb1d5
commit 9832760a3e
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-04-03 Stefan Monnier <monnier@cs.yale.edu>
* mail/mh-utils.el (mh-folder-hist): New var.
(mh-prompt-for-folder): Use it and pass `default' to completing-read.
2001-04-03 Eli Zaretskii <eliz@is.elta.co.il>
* hexl.el (hexl-scroll-up): If scrolling gets outside the hexl

5
lisp/mail/mh-utils.el
View File

@ -725,6 +725,7 @@ directory names."
(setq mode-name mode-name-string)
(force-mode-line-update t))
(defvar mh-folder-hist nil)
(defun mh-prompt-for-folder (prompt default can-create)
;; Prompt for a folder name with PROMPT. Returns the folder's name as a
@ -739,8 +740,8 @@ directory names."
read-name folder-name)
(if (null mh-folder-list)
(mh-set-folder-list))
(while (and (setq read-name (completing-read prompt mh-folder-list
nil nil "+"))
(while (and (setq read-name (completing-read prompt mh-folder-list nil nil
"+" 'mh-folder-hist default))
(equal read-name "")
(equal default "")))
(cond ((or (equal read-name "") (equal read-name "+"))