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) |
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) |
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)) |
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. |
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." |