Commit 9832760a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(mh-folder-hist): New var.

(mh-prompt-for-folder): Use it and pass `default' to completing-read.
parent 4c1dadb1
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
......
......@@ -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 "+"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment