X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=selector.el;h=528d96dee378e177bd23b102224d848082643fd7;hp=ab50928371e80f790d7be87350903a5ec34d05a6;hb=HEAD;hpb=8d85e80a527d47c5de699fe969f4c7a842aac7c3

diff --git a/selector.el b/selector.el
index ab50928..528d96d 100644
--- a/selector.el
+++ b/selector.el
@@ -21,8 +21,8 @@
 ;; The selector/select function provides a simple interface for
 ;; selecting an object with on-the-fly pattern matching in a standard
 ;; buffer (i.e. not in the minibuffer). You can either use it in your
-;; own functions or directly use selector/quick-pick-recent or
-;; selector/quick-move-in-buffer.
+;; own functions or directly use selector/quick-pick-recent,
+;; selector/quick-move-in-buffer, or selector/switch-buffer
 ;;
 ;; For instance, you can add in your .emacs.el
 ;;
@@ -73,7 +73,7 @@ Otherwise use the mode-line."
   :type 'hook
   :group 'selector)
 
-(defcustom selector/quick-pick-recent-filter nil
+(defcustom selector/quick-pick-recent-hide-filter nil
   "Regexp specifying which filenames should be hidden by `selector/quick-pick-recent'"
   :type 'string
   :group 'selector)
@@ -397,10 +397,13 @@ filename."
 
 (defun selector/quick-pick-recent (universal)
   "Open a file picked in `recentf-list' with the dynamic
-pattern-matching search implemented in `selector/select'. Without
-a prefix argument, hide files matching
-`selector/quick-pick-recent-filter'. With a prefix argument before the
-selection of the file per se, permits to edit it before opening."
+pattern-matching search implemented in `selector/select'.
+
+Without a prefix argument, hide files matching
+`selector/quick-pick-recent-hide-filter'.
+
+With a prefix argument before the selection of the file per se,
+permits to edit it before opening."
   (interactive "P")
 
   (unless (and (boundp recentf-mode) recentf-mode)
@@ -409,10 +412,10 @@ selection of the file per se, permits to edit it before opening."
   (let ((l
          (mapcar
           (lambda (s) (cons (selector/filename-to-string s) s))
-          (if (and (not universal) selector/quick-pick-recent-filter)
+          (if (and (not universal) selector/quick-pick-recent-hide-filter)
               (delq nil
                     (mapcar
-                     (lambda (x) (and (not (string-match selector/quick-pick-recent-filter x)) x))
+                     (lambda (x) (and (not (string-match selector/quick-pick-recent-hide-filter x)) x))
                      recentf-list)
                     )
             recentf-list