/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

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

revision 1.445 by jurta, Mon Aug 22 19:53:46 2005 UTC revision 1.446 by rfrancoise, Sat Sep 24 13:44:02 2005 UTC
# Line 1569  PATH-AND-SUFFIXES is a pair of lists, (D Line 1569  PATH-AND-SUFFIXES is a pair of lists, (D
1569  If DIRECTION is `backward', search in the reverse direction."  If DIRECTION is `backward', search in the reverse direction."
1570    (interactive (list (read-string    (interactive (list (read-string
1571                        (if Info-search-history                        (if Info-search-history
1572                            (format "Regexp search%s (default `%s'): "                            (format "Regexp search%s (default %s): "
1573                                    (if case-fold-search "" " case-sensitively")                                    (if case-fold-search "" " case-sensitively")
1574                                    (car Info-search-history))                                    (car Info-search-history))
1575                          (format "Regexp search%s: "                          (format "Regexp search%s: "
1576                                  (if case-fold-search "" " case-sensitively")))                                  (if case-fold-search "" " case-sensitively")))
1577                        nil 'Info-search-history)))                        nil 'Info-search-history)))
1578    (when transient-mark-mode    (when transient-mark-mode
1579      (deactivate-mark))      (deactivate-mark))
# Line 1757  If DIRECTION is `backward', search in th Line 1757  If DIRECTION is `backward', search in th
1757    "Search for REGEXP in the reverse direction."    "Search for REGEXP in the reverse direction."
1758    (interactive (list (read-string    (interactive (list (read-string
1759                        (if Info-search-history                        (if Info-search-history
1760                            (format "Regexp search%s backward (default `%s'): "                            (format "Regexp search%s backward (default %s): "
1761                                    (if case-fold-search "" " case-sensitively")                                    (if case-fold-search "" " case-sensitively")
1762                                    (car Info-search-history))                                    (car Info-search-history))
1763                          (format "Regexp search%s backward: "                          (format "Regexp search%s backward: "
1764                                  (if case-fold-search "" " case-sensitively")))                                  (if case-fold-search "" " case-sensitively")))
1765                        nil 'Info-search-history)))                        nil 'Info-search-history)))
1766    (Info-search regexp bound noerror count 'backward))    (Info-search regexp bound noerror count 'backward))
1767    
# Line 2107  new buffer." Line 2107  new buffer."
2107       (if completions       (if completions
2108           (let ((input (completing-read (if default           (let ((input (completing-read (if default
2109                                             (concat                                             (concat
2110                                              "Follow reference named: (default "                                              "Follow reference named (default "
2111                                              default ") ")                                              default "): ")
2112                                           "Follow reference named: ")                                           "Follow reference named: ")
2113                                         completions nil t)))                                         completions nil t)))
2114             (list (if (equal input "")             (list (if (equal input "")

Legend:
Removed from v.1.445  
changed lines
  Added in v.1.446

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