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

[Romain Francoise]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.445 emacs/lisp/info.el:1.446
*** emacs/lisp/info.el:1.445    Mon Aug 22 19:53:46 2005
--- emacs/lisp/info.el  Sat Sep 24 13:44:02 2005
***************
*** 1569,1579 ****
  If DIRECTION is `backward', search in the reverse direction."
    (interactive (list (read-string
                      (if Info-search-history
!                         (format "Regexp search%s (default `%s'): "
!                                   (if case-fold-search "" " case-sensitively")
                                  (car Info-search-history))
                        (format "Regexp search%s: "
!                                 (if case-fold-search "" " case-sensitively")))
                      nil 'Info-search-history)))
    (when transient-mark-mode
      (deactivate-mark))
--- 1569,1579 ----
  If DIRECTION is `backward', search in the reverse direction."
    (interactive (list (read-string
                      (if Info-search-history
!                         (format "Regexp search%s (default %s): "
!                                 (if case-fold-search "" " case-sensitively")
                                  (car Info-search-history))
                        (format "Regexp search%s: "
!                               (if case-fold-search "" " case-sensitively")))
                      nil 'Info-search-history)))
    (when transient-mark-mode
      (deactivate-mark))
***************
*** 1757,1767 ****
    "Search for REGEXP in the reverse direction."
    (interactive (list (read-string
                      (if Info-search-history
!                         (format "Regexp search%s backward (default `%s'): "
!                                   (if case-fold-search "" " case-sensitively")
                                  (car Info-search-history))
                        (format "Regexp search%s backward: "
!                                 (if case-fold-search "" " case-sensitively")))
                      nil 'Info-search-history)))
    (Info-search regexp bound noerror count 'backward))
  
--- 1757,1767 ----
    "Search for REGEXP in the reverse direction."
    (interactive (list (read-string
                      (if Info-search-history
!                         (format "Regexp search%s backward (default %s): "
!                                 (if case-fold-search "" " case-sensitively")
                                  (car Info-search-history))
                        (format "Regexp search%s backward: "
!                               (if case-fold-search "" " case-sensitively")))
                      nil 'Info-search-history)))
    (Info-search regexp bound noerror count 'backward))
  
***************
*** 2107,2114 ****
       (if completions
         (let ((input (completing-read (if default
                                           (concat
!                                           "Follow reference named: (default "
!                                           default ") ")
                                         "Follow reference named: ")
                                       completions nil t)))
           (list (if (equal input "")
--- 2107,2114 ----
       (if completions
         (let ((input (completing-read (if default
                                           (concat
!                                           "Follow reference named (default "
!                                           default "): ")
                                         "Follow reference named: ")
                                       completions nil t)))
           (list (if (equal input "")