emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog progmodes/grep.el


From: Juri Linkov
Subject: [Emacs-diffs] emacs/lisp ChangeLog progmodes/grep.el
Date: Mon, 07 Dec 2009 17:35:51 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/12/07 17:35:50

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : grep.el 

Log message:
        (grep-read-files): Use `completing-read'
        instead of `read-string'.  Set its `collection' arg to
        `read-file-name-internal'.  (Bug#4301)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16859&r2=1.16860
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/grep.el?cvsroot=emacs&r1=1.112&r2=1.113

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16859
retrieving revision 1.16860
diff -u -b -r1.16859 -r1.16860
--- ChangeLog   7 Dec 2009 17:30:01 -0000       1.16859
+++ ChangeLog   7 Dec 2009 17:35:47 -0000       1.16860
@@ -1,5 +1,11 @@
 2009-12-07  Juri Linkov  <address@hidden>
 
+       * progmodes/grep.el (grep-read-files): Use `completing-read'
+       instead of `read-string'.  Set its `collection' arg to
+       `read-file-name-internal'.  (Bug#4301)
+
+2009-12-07  Juri Linkov  <address@hidden>
+
        Correctly restore original Isearch point.  (Bug#4994)
 
        * isearch.el (isearch-mode): Move `isearch-push-state' after

Index: progmodes/grep.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -b -r1.112 -r1.113
--- progmodes/grep.el   25 Nov 2009 17:23:49 -0000      1.112
+++ progmodes/grep.el   7 Dec 2009 17:35:50 -0000       1.113
@@ -799,12 +799,13 @@
               default-extension
               (car grep-files-history)
               (car (car grep-files-aliases))))
-        (files (read-string
+        (files (completing-read
                 (concat "Search for \"" regexp
                         "\" in files"
                         (if default (concat " (default " default ")"))
                         ": ")
-                nil 'grep-files-history
+                'read-file-name-internal
+                nil nil nil 'grep-files-history
                 (delete-dups
                  (delq nil (append (list default default-alias 
default-extension)
                                    (mapcar 'car grep-files-aliases)))))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]