[Emacs-diffs] Changes to emacs/lisp/man.el

[Romain Francoise]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.153 emacs/lisp/man.el:1.154
*** emacs/lisp/man.el:1.153     Mon Aug 29 11:00:09 2005
--- emacs/lisp/man.el   Sat Sep 24 13:44:02 2005
***************
*** 663,672 ****
    (interactive
     (list (let* ((default-entry (Man-default-man-entry))
                (input (read-string
!                       (format "Manual entry%s: "
                                (if (string= default-entry "")
!                                   ""
!                                 (format " (default %s)" default-entry)))
                        nil nil default-entry)))
           (if (string= input "")
               (error "No man args given")
--- 663,672 ----
    (interactive
     (list (let* ((default-entry (Man-default-man-entry))
                (input (read-string
!                       (format "Manual entry%s"
                                (if (string= default-entry "")
!                                   ": "
!                                 (format " (default %s): " default-entry)))
                        nil nil default-entry)))
           (if (string= input "")
               (error "No man args given")
***************
*** 1273,1279 ****
        (let* ((default (aheadsym Man-sections-alist))
               (completion-ignore-case t)
               chosen
!              (prompt (concat "Go to section: (default " default ") ")))
          (setq chosen (completing-read prompt Man-sections-alist))
          (if (or (not chosen)
                  (string= chosen ""))
--- 1273,1279 ----
        (let* ((default (aheadsym Man-sections-alist))
               (completion-ignore-case t)
               chosen
!              (prompt (concat "Go to section (default " default "): ")))
          (setq chosen (completing-read prompt Man-sections-alist))
          (if (or (not chosen)
                  (string= chosen ""))
***************
*** 1328,1334 ****
                                  Man-refpages-alist))
                            (aheadsym Man-refpages-alist)))
                   chosen
!                  (prompt (concat "Refer to: (default " default ") ")))
              (setq chosen (completing-read prompt Man-refpages-alist))
              (if (or (not chosen)
                      (string= chosen ""))
--- 1328,1334 ----
                                  Man-refpages-alist))
                            (aheadsym Man-refpages-alist)))
                   chosen
!                  (prompt (concat "Refer to (default " default "): ")))
              (setq chosen (completing-read prompt Man-refpages-alist))
              (if (or (not chosen)
                      (string= chosen ""))