Mercurial > emacs
annotate lisp/recentf.el @ 28861:bab7620d1466
(log-view-goto-rev): New function for the new VC.
(log-view-minor-wrap): Use mark-active.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 10 May 2000 22:22:21 +0000 |
parents | 48db2ba485bf |
children | 94fe67994fcb |
rev | line source |
---|---|
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
1 ;; recentf.el --- setup a menu of recently opened files |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
2 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
3 ;; Copyright (C) 1999 Free Software Foundation, Inc. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
4 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
5 ;; Author: David Ponce <david.ponce@wanadoo.fr> |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
6 ;; Created: July 19 1999 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
7 ;; Keywords: customization |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
8 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
10 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
14 ;; any later version. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
15 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
20 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
24 ;; Boston, MA 02111-1307, USA. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
25 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
26 ;;; Commentary: |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
27 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
28 ;;; Code: |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
29 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
30 (require 'easymenu) |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
31 (require 'widget) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
32 (eval-when-compile |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
33 (require 'wid-edit)) |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
34 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
35 (defconst recentf-save-file-header |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
36 ";;; Automatically generated by `recentf' on %s.\n" |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
37 "Header to be written into the `recentf-save-file'.") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
38 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
39 (defvar recentf-list nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
40 "List of recently opened files.") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
41 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
42 (defvar recentf-update-menu-p t |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
43 "Non-nil if the recentf menu must be updated.") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
44 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
45 (defvar recentf-initialized-p nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
46 "Non-nil if recentf already initialized.") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
47 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
48 ;; IMPORTANT: This function must be defined before the following defcustoms |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
49 ;; because it is used in their :set clause. To avoid byte-compiler warnings |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
50 ;; the `symbol-value' function is used to access the `recentf-menu-path' |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
51 ;; and `recentf-menu-title' values. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
52 (defun recentf-menu-customization-changed (sym val) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
53 "Function called when menu customization has changed. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
54 It removes the recentf menu and forces its complete redrawing." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
55 (when recentf-initialized-p |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
56 (easy-menu-remove-item nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
57 (symbol-value 'recentf-menu-path) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
58 (symbol-value 'recentf-menu-title)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
59 (setq recentf-update-menu-p t)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
60 (custom-set-default sym val)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
61 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
62 (defgroup recentf nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
63 "Maintain a menu of recently opened files." |
27580
b84ee89aaf37
(recentf): Add :version to defgroup.
Dave Love <fx@gnu.org>
parents:
25997
diff
changeset
|
64 :version "21.1" |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
65 :group 'files) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
66 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
67 (defcustom recentf-max-saved-items 20 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
68 "*Maximum number of items saved to `recentf-save-file'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
69 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
70 :type 'integer) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
71 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
72 (defcustom recentf-save-file (expand-file-name "~/.recentf") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
73 "*File to save `recentf-list' into." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
74 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
75 :type 'file) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
76 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
77 (defcustom recentf-exclude nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
78 "*List of regexps for filenames excluded from `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
79 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
80 :type '(repeat regexp)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
81 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
82 (defcustom recentf-menu-title "Open Recent" |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
83 "*Name of the recentf menu." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
84 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
85 :type 'string |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
86 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
87 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
88 (defcustom recentf-menu-path '("files") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
89 "*Path where to add the recentf menu. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
90 If nil add it at top-level (see also `easy-menu-change')." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
91 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
92 :type '(choice (const :tag "Top Level" nil) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
93 (sexp :tag "Menu Path")) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
94 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
95 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
96 (defcustom recentf-menu-before "open-file" |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
97 "*Name of the menu before which the recentf menu will be added. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
98 If nil add it at end of menu (see also `easy-menu-change')." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
99 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
100 :type '(choice (string :tag "Name") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
101 (const :tag "Last" nil)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
102 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
103 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
104 (defcustom recentf-menu-action 'recentf-find-file |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
105 "*Function to invoke with a filename item of the recentf menu. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
106 The default action `recentf-find-file' calls `find-file' to edit an |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
107 existing file. If the file does not exist or is not readable, it is |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
108 not edited and its name is removed from `recentf-list'. You can use |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
109 `find-file' instead to open non-existing files and keep them in the |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
110 list of recently opened files." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
111 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
112 :type 'function |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
113 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
114 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
115 (defcustom recentf-max-menu-items 10 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
116 "*Maximum number of items in the recentf menu." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
117 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
118 :type 'integer |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
119 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
120 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
121 (defcustom recentf-menu-filter nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
122 "*Function used to filter files displayed in the recentf menu. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
123 Nil means no filter. The following functions are predefined: |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
124 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
125 - - `recentf-sort-ascending' to sort menu items in ascending order. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
126 - - `recentf-sort-descending' to sort menu items in descending order. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
127 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
128 The filter function is called with one argument, the list of filenames to be |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
129 displayed in the menu and must return a new list of filenames." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
130 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
131 :type 'function |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
132 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
133 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
134 (defcustom recentf-menu-append-commands-p t |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
135 "*If not-nil command items are appended to the menu." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
136 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
137 :type 'boolean |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
138 :set 'recentf-menu-customization-changed) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
139 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
140 (defcustom recentf-keep-non-readable-files-p nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
141 "*If nil (default), non-readable files are not kept in `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
142 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
143 :type 'boolean |
28042
0e8cc641145e
(recentf-keep-non-readable-files-p): Add :set,
Dave Love <fx@gnu.org>
parents:
28032
diff
changeset
|
144 :require 'recentf |
0e8cc641145e
(recentf-keep-non-readable-files-p): Add :set,
Dave Love <fx@gnu.org>
parents:
28032
diff
changeset
|
145 :initialize 'custom-initialize-default |
0e8cc641145e
(recentf-keep-non-readable-files-p): Add :set,
Dave Love <fx@gnu.org>
parents:
28032
diff
changeset
|
146 :set (lambda (sym val) |
0e8cc641145e
(recentf-keep-non-readable-files-p): Add :set,
Dave Love <fx@gnu.org>
parents:
28032
diff
changeset
|
147 (if val |
0e8cc641145e
(recentf-keep-non-readable-files-p): Add :set,
Dave Love <fx@gnu.org>
parents:
28032
diff
changeset
|
148 (remove-hook 'kill-buffer-hook 'recentf-remove-file-hook) |
0e8cc641145e
(recentf-keep-non-readable-files-p): Add :set,
Dave Love <fx@gnu.org>
parents:
28032
diff
changeset
|
149 (add-hook 'kill-buffer-hook 'recentf-remove-file-hook)) |
28115
48db2ba485bf
(recentf-keep-non-readable-files-p): Remove
Gerd Moellmann <gerd@gnu.org>
parents:
28042
diff
changeset
|
150 (custom-set-default sym val))) |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
151 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
152 (defcustom recentf-mode nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
153 "Toggle recentf mode. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
154 When recentf mode is enabled, it maintains a menu for visiting files that |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
155 were operated on recently. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
156 Setting this variable directly does not take effect; |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
157 use either \\[customize] or the function `recentf-mode'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
158 :set (lambda (symbol value) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
159 (recentf-mode (or value 0))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
160 :initialize 'custom-initialize-default |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
161 :type 'boolean |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
162 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
163 :require 'recentf) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
164 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
165 (defcustom recentf-load-hook nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
166 "*Normal hook run at end of loading the `recentf' package." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
167 :group 'recentf |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
168 :type 'hook) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
169 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
170 ;;;###autoload |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
171 (defun recentf-mode (&optional arg) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
172 "Toggle recentf mode. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
173 With prefix ARG, turn recentf mode on if and only if ARG is positive. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
174 Returns the new status of recentf mode (non-nil means on). |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
175 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
176 When recentf mode is enabled, it maintains a menu for visiting files that |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
177 were operated on recently." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
178 (interactive "P") |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
179 (let ((on-p (if arg |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
180 (> (prefix-numeric-value arg) 0) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
181 (not recentf-mode)))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
182 (if on-p |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
183 (unless recentf-initialized-p |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
184 (setq recentf-initialized-p t) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
185 (if (file-readable-p recentf-save-file) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
186 (load-file recentf-save-file)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
187 (setq recentf-update-menu-p t) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
188 (add-hook 'find-file-hooks 'recentf-add-file-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
189 (add-hook 'write-file-hooks 'recentf-add-file-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
190 ;; (add-hook 'activate-menubar-hook 'recentf-update-menu-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
191 (add-hook 'menu-bar-update-hook 'recentf-update-menu-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
192 (add-hook 'kill-emacs-hook 'recentf-save-list)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
193 (when recentf-initialized-p |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
194 (setq recentf-initialized-p nil) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
195 (recentf-save-list) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
196 (easy-menu-remove-item nil recentf-menu-path recentf-menu-title) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
197 (remove-hook 'find-file-hooks 'recentf-add-file-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
198 (remove-hook 'write-file-hooks 'recentf-add-file-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
199 ;; (remove-hook 'activate-menubar-hook 'recentf-update-menu-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
200 (remove-hook 'menu-bar-update-hook 'recentf-update-menu-hook) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
201 (remove-hook 'kill-emacs-hook 'recentf-save-list))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
202 (setq recentf-mode on-p))) |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
203 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
204 (defun recentf-add-file-hook () |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
205 "Insert the name of the file just opened or written into `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
206 (and buffer-file-name (recentf-add-file buffer-file-name)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
207 nil) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
208 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
209 (defun recentf-remove-file-hook () |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
210 "When a buffer is killed remove a non readable file from `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
211 (and buffer-file-name (recentf-remove-if-non-readable buffer-file-name)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
212 nil) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
213 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
214 (defun recentf-update-menu-hook () |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
215 "Update the recentf menu from the current `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
216 (when recentf-update-menu-p |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
217 (condition-case nil |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
218 (progn |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
219 (easy-menu-change recentf-menu-path |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
220 recentf-menu-title |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
221 (recentf-make-menu-items) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
222 recentf-menu-before) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
223 (setq recentf-update-menu-p nil)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
224 (error nil)))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
225 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
226 ;;;###autoload |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
227 (defun recentf-save-list () |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
228 "Save the current `recentf-list' to the file `recentf-save-file'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
229 (interactive) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
230 (let ((saved-list (recentf-elements recentf-max-saved-items))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
231 (with-temp-buffer |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
232 (erase-buffer) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
233 (insert (format recentf-save-file-header (current-time-string))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
234 (insert "(setq recentf-list\n '(\n") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
235 (mapcar '(lambda (e) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
236 (insert (format " %S\n" e))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
237 saved-list) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
238 (insert " ))") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
239 (if (file-writable-p recentf-save-file) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
240 (write-region (point-min) (point-max) recentf-save-file)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
241 (kill-buffer (current-buffer)))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
242 nil) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
243 |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
244 (defvar recentf-edit-selected-items nil |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
245 "Used by `recentf-edit-list' to hold the list of files to be deleted |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
246 from `recentf-list'.") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
247 |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
248 (defun recentf-edit-list-action (widget &rest ignore) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
249 "Checkbox widget action used by `recentf-edit-list' to select/unselect a file." |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
250 (let ((value (widget-get widget ':tag))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
251 ;; if value is already in the selected items |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
252 (if (memq value recentf-edit-selected-items) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
253 ;; then remove it |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
254 (progn |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
255 (setq recentf-edit-selected-items |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
256 (delq value recentf-edit-selected-items)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
257 (message "%s removed from selection." value)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
258 ;; else add it |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
259 (progn |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
260 (setq recentf-edit-selected-items |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
261 (nconc (list value) recentf-edit-selected-items)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
262 (message "%s added to selection." value))))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
263 |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
264 ;;;###autoload |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
265 (defun recentf-edit-list () |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
266 "Allow the user to edit the files that are kept in the recent list." |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
267 (interactive) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
268 (with-current-buffer (get-buffer-create (concat "*" recentf-menu-title " - Edit list*")) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
269 (switch-to-buffer (current-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
270 (kill-all-local-variables) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
271 (let ((inhibit-read-only t)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
272 (erase-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
273 (let ((all (overlay-lists))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
274 ;; Delete all the overlays. |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
275 (mapcar 'delete-overlay (car all)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
276 (mapcar 'delete-overlay (cdr all))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
277 (setq recentf-edit-selected-items nil) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
278 ;; Insert the dialog header |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
279 (widget-insert "Select the files to be deleted from the 'recentf-list'.\n\n") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
280 (widget-insert "Click on Ok to update the list or on Cancel to quit.\n" ) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
281 ;; Insert the list of files as checkboxes |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
282 (mapcar '(lambda (item) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
283 (widget-create 'checkbox |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
284 :value nil ; unselected checkbox |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
285 :format "\n %[%v%] %t" |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
286 :tag item |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
287 :notify 'recentf-edit-list-action)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
288 recentf-list) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
289 (widget-insert "\n\n") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
290 ;; Insert the Ok button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
291 (widget-create 'push-button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
292 :notify (lambda (&rest ignore) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
293 (if recentf-edit-selected-items |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
294 (progn (kill-buffer (current-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
295 (mapcar '(lambda (item) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
296 (setq recentf-list |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
297 (delq item recentf-list))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
298 recentf-edit-selected-items) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
299 (message "%S file(s) removed from the list" |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
300 (length recentf-edit-selected-items)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
301 (setq recentf-update-menu-p t)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
302 (message "No file selected."))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
303 "Ok") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
304 (widget-insert " ") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
305 ;; Insert the Cancel button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
306 (widget-create 'push-button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
307 :notify (lambda (&rest ignore) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
308 (kill-buffer (current-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
309 (message "Command canceled.")) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
310 "Cancel") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
311 (use-local-map widget-keymap) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
312 (widget-setup))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
313 |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
314 ;;;###autoload |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
315 (defun recentf-cleanup () |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
316 "Remove all non-readable and excluded files from `recentf-list'." |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
317 (interactive) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
318 (setq recentf-list |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
319 (delq nil |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
320 (mapcar '(lambda (filename) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
321 (and (file-readable-p filename) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
322 (recentf-include-p filename) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
323 filename)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
324 recentf-list))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
325 (setq recentf-update-menu-p t)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
326 |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
327 (defun recentf-open-more-files-action (widget &rest ignore) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
328 "Button widget action used by `recentf-open-more-files' to open a file." |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
329 (kill-buffer (current-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
330 (funcall recentf-menu-action (widget-value widget))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
331 |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
332 ;;;###autoload |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
333 (defun recentf-open-more-files () |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
334 "Allow the user to open files that are not in the menu." |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
335 (interactive) |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
336 (with-current-buffer (get-buffer-create (concat "*" recentf-menu-title " - More*")) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
337 (switch-to-buffer (current-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
338 (kill-all-local-variables) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
339 (let ((inhibit-read-only t)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
340 (erase-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
341 (let ((all (overlay-lists))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
342 ;; Delete all the overlays. |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
343 (mapcar 'delete-overlay (car all)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
344 (mapcar 'delete-overlay (cdr all))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
345 ;; Insert the dialog header |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
346 (widget-insert "Click on a file to open it or on Cancel to quit.\n\n") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
347 ;; Insert the list of files as buttons |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
348 (mapcar '(lambda (menu-element) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
349 (let ((menu-item (car menu-element)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
350 (file-path (cdr menu-element))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
351 (widget-create 'push-button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
352 :button-face 'default |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
353 :tag menu-item |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
354 :help-echo (concat "Open " file-path) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
355 :format "%[%t%]" |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
356 :notify 'recentf-open-more-files-action |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
357 file-path) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
358 (widget-insert "\n"))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
359 (funcall (or recentf-menu-filter 'identity) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
360 (mapcar '(lambda (item) (cons item item)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
361 (nthcdr recentf-max-menu-items recentf-list)))) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
362 (widget-insert "\n") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
363 ;; Insert the Cancel button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
364 (widget-create 'push-button |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
365 :notify (lambda (&rest ignore) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
366 (kill-buffer (current-buffer)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
367 (message "Command canceled.")) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
368 "Cancel") |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
369 (use-local-map widget-keymap) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
370 (widget-setup))) |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
371 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
372 (defvar recentf-menu-items-for-commands |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
373 (list ["Cleanup list" recentf-cleanup t] |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
374 ["Edit list..." recentf-edit-list t] |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
375 ["Save list now" recentf-save-list t] |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
376 (vector "Recentf Options..." '(customize-group "recentf") t)) |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
377 "List of menu items for recentf commands.") |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
378 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
379 (defun recentf-make-menu-items () |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
380 "Make menu items from `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
381 (let ((file-items |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
382 (mapcar '(lambda (entry) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
383 (vector entry (list recentf-menu-action entry) t)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
384 (funcall (or recentf-menu-filter 'identity) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
385 (recentf-elements recentf-max-menu-items))))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
386 (append (or file-items (list ["No files" t nil])) |
27920
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
387 (and (< recentf-max-menu-items (length recentf-list)) |
8f8b86890eb3
(recentf): Added version tag to the defgroup of
Gerd Moellmann <gerd@gnu.org>
parents:
27580
diff
changeset
|
388 (list ["More..." recentf-open-more-files t])) |
25997
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
389 (and recentf-menu-append-commands-p |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
390 (cons ["---" nil nil] |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
391 recentf-menu-items-for-commands))))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
392 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
393 (defun recentf-add-file (filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
394 "Add or move FILENAME at the beginning of `recentf-list'. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
395 Does nothing if FILENAME matches one of the `recentf-exclude' regexps." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
396 (when (recentf-include-p filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
397 (setq recentf-list (cons filename (delete filename recentf-list))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
398 (setq recentf-update-menu-p t))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
399 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
400 (defun recentf-remove-if-non-readable (filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
401 "Remove FILENAME from `recentf-list' if not readable." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
402 (unless (file-readable-p filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
403 (setq recentf-list (delete filename recentf-list)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
404 (setq recentf-update-menu-p t))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
405 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
406 (defun recentf-find-file (filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
407 "Edit file FILENAME using `find-file'. |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
408 If FILENAME is not readable it is removed from `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
409 (if (file-readable-p filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
410 (find-file filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
411 (progn |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
412 (message "File `%s' not found." filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
413 (setq recentf-list (delete filename recentf-list)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
414 (setq recentf-update-menu-p t)))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
415 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
416 (defun recentf-include-p (filename) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
417 "Return t if FILENAME matches none of the `recentf-exclude' regexps." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
418 (let ((rl recentf-exclude)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
419 (while (and rl (not (string-match (car rl) filename))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
420 (setq rl (cdr rl))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
421 (null rl))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
422 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
423 (defun recentf-elements (n) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
424 "Return a list of the first N elements of `recentf-list'." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
425 (let ((lh nil) (l recentf-list)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
426 (while (and l (> n 0)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
427 (setq lh (cons (car l) lh)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
428 (setq n (1- n)) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
429 (setq l (cdr l))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
430 (nreverse lh))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
431 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
432 (defun recentf-sort-ascending (l) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
433 "Sort the list of strings L in ascending order." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
434 (sort l '(lambda (e1 e2) (string-lessp e1 e2)))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
435 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
436 (defun recentf-sort-descending (l) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
437 "Sort the list of strings L in descending order." |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
438 (sort l '(lambda (e1 e2) (string-lessp e2 e1)))) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
439 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
440 (provide 'recentf) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
441 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
442 (run-hooks 'recentf-load-hook) |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
443 |
40b9e5591aac
New file. Setup a menu of recently opened files
Gerd Moellmann <gerd@gnu.org>
parents:
diff
changeset
|
444 ;;; recentf.el ends here. |