annotate lisp/recentf.el @ 29214:1c72426f9d08

*** empty log message ***
author Dave Love <fx@gnu.org>
date Thu, 25 May 2000 18:40:23 +0000
parents 48db2ba485bf
children 94fe67994fcb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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.