/[emacs]/emacs/lisp/mh-e/mh-utils.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-utils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by lute, Mon Jul 4 17:15:52 2005 UTC revision 1.14 by rfrancoise, Sat Sep 24 13:45:49 2005 UTC
# Line 2315  non-nil then the function will accept th Line 2315  non-nil then the function will accept th
2315  when used in searching."  when used in searching."
2316    (if (null default)    (if (null default)
2317        (setq default ""))        (setq default ""))
2318    (let* ((default-string (cond (default-string (format "[%s] " default-string))    (let* ((default-string (cond (default-string (format " (default %s)" default-string))
2319                                 ((equal "" default) "")                                 ((equal "" default) "")
2320                                 (t (format "[%s] " default))))                                 (t (format " (default %s)" default))))
2321           (prompt (format "%s folder: %s" prompt default-string))           (prompt (format "%s folder%s: " prompt default-string))
2322           (mh-current-folder-name mh-current-folder)           (mh-current-folder-name mh-current-folder)
2323           read-name folder-name)           read-name folder-name)
2324      (while (and (setq read-name (mh-folder-completing-read      (while (and (setq read-name (mh-folder-completing-read

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26