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

Diff of /emacs/lisp/recentf.el

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

revision 1.21 by pj, Mon Apr 29 09:27:25 2002 UTC revision 1.21.2.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 156  The filter function is called with one a Line 156  The filter function is called with one a
156  used to build the menu and must return a new list of menu elements (see  used to build the menu and must return a new list of menu elements (see
157  `recentf-make-menu-element' for menu element form)."  `recentf-make-menu-element' for menu element form)."
158    :group 'recentf    :group 'recentf
159    :type '(radio (const nil)    :type '(radio (const nil)
160                  (function-item recentf-sort-ascending)                  (function-item recentf-sort-ascending)
161                  (function-item recentf-sort-descending)                  (function-item recentf-sort-descending)
162                  (function-item recentf-sort-basenames-ascending)                  (function-item recentf-sort-basenames-ascending)
# Line 201  used to build the menu and must return a Line 201  used to build the menu and must return a
201  ;;;; Common functions  ;;;; Common functions
202  ;;;;  ;;;;
203  (defconst recentf-case-fold-search  (defconst recentf-case-fold-search
204    (memq system-type '(vax-vms windows-nt))    (memq system-type '(vax-vms windows-nt cygwin))
205    "Non-nil if recentf searches and matches should ignore case.")    "Non-nil if recentf searches and matches should ignore case.")
206    
207  (defun recentf-include-p (filename)  (defun recentf-include-p (filename)
# Line 676  Arrange them in sub-menus following rule Line 676  Arrange them in sub-menus following rule
676      ;; It is important to preserve auto-mode-alist order      ;; It is important to preserve auto-mode-alist order
677      ;; to ensure the right file <-> mode association      ;; to ensure the right file <-> mode association
678      (nreverse rules)))      (nreverse rules)))
679            
680  (defun recentf-arrange-by-mode (l)  (defun recentf-arrange-by-mode (l)
681    "Filter the list of menu-elements L to build sub-menus for each major mode."    "Filter the list of menu-elements L to build sub-menus for each major mode."
682    (let ((recentf-arrange-rules (recentf-build-mode-rules))    (let ((recentf-arrange-rules (recentf-build-mode-rules))
# Line 765  Each filter is defined by a pair (FILTER Line 765  Each filter is defined by a pair (FILTER
765                 (setq filters (cdr filters)))))                 (setq filters (cdr filters)))))
766      (if (consp filters)      (if (consp filters)
767          (car filters))))          (car filters))))
768            
769  (defun recentf-filter-changer (l)  (defun recentf-filter-changer (l)
770    "Manage a ring of filters.    "Manage a ring of filters.
771  `recentf-filter-changer-alist' defines the filters in the ring.  `recentf-filter-changer-alist' defines the filters in the ring.
# Line 888  Holds list of files to be deleted from ` Line 888  Holds list of files to be deleted from `
888          (setq recentf-edit-selected-items          (setq recentf-edit-selected-items
889                (nconc (list value) recentf-edit-selected-items))                (nconc (list value) recentf-edit-selected-items))
890          (message "%s added to selection." value)))))          (message "%s added to selection." value)))))
891      
892  ;;;###autoload  ;;;###autoload
893  (defun recentf-edit-list ()  (defun recentf-edit-list ()
894    "Allow the user to edit the files that are kept in the recent list."    "Allow the user to edit the files that are kept in the recent list."

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.2.1

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