/[emacs]/emacs/lisp/gnus/gnus-util.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-util.el

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

revision 1.34 by miles, Mon Sep 5 23:58:07 2005 UTC revision 1.35 by rfrancoise, Sat Sep 24 13:46:19 2005 UTC
# Line 335  is slower." Line 335  is slower."
335  (defun gnus-completing-read-with-default (default prompt &rest args)  (defun gnus-completing-read-with-default (default prompt &rest args)
336    ;; Like `completing-read', except that DEFAULT is the default argument.    ;; Like `completing-read', except that DEFAULT is the default argument.
337    (let* ((prompt (if default    (let* ((prompt (if default
338                       (concat prompt " (default " default ") ")                       (concat prompt " (default " default "): ")
339                     (concat prompt " ")))                     (concat prompt ": ")))
340           (answer (apply 'completing-read prompt args)))           (answer (apply 'completing-read prompt args)))
341      (if (or (null answer) (zerop (length answer)))      (if (or (null answer) (zerop (length answer)))
342          default          default

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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