Mercurial > emacs
annotate lisp/savehist.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 0b37f86b040e |
children | 417b1e4d63cd |
rev | line source |
---|---|
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
1 ;;; savehist.el --- Save minibuffer history. |
66106 | 2 |
106815 | 3 ;; Copyright (C) 1997, 2005, 2006, 2007, 2008, 2009, 2010 |
106338
8241fe93acbf
Update maintainer per comment from HN in bug#5056: "I no longer
Glenn Morris <rgm@gnu.org>
parents:
106335
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
66106 | 5 |
6 ;; Author: Hrvoje Niksic <hniksic@xemacs.org> | |
106338
8241fe93acbf
Update maintainer per comment from HN in bug#5056: "I no longer
Glenn Morris <rgm@gnu.org>
parents:
106335
diff
changeset
|
7 ;; Maintainer: FSF |
66106 | 8 ;; Keywords: minibuffer |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
9 ;; Version: 24 |
66106 | 10 |
11 ;; This file is part of GNU Emacs. | |
12 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94286
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
66106 | 14 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94286
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94286
diff
changeset
|
16 ;; (at your option) any later version. |
66106 | 17 |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94286
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
66106 | 25 |
26 ;;; Commentary: | |
27 | |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
28 ;; Many editors (e.g. Vim) have the feature of saving minibuffer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
29 ;; history to an external file after exit. This package provides the |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
30 ;; same feature in Emacs. When set up, it saves recorded minibuffer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
31 ;; histories to a file (`~/.emacs-history' by default). Additional |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
32 ;; variables may be specified by customizing |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
33 ;; `savehist-additional-variables'. |
66106 | 34 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
35 ;; To use savehist, turn on savehist-mode by putting the following in |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
36 ;; `~/.emacs': |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
37 ;; |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
38 ;; (savehist-mode 1) |
66106 | 39 ;; |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
40 ;; or with customize: `M-x customize-option RET savehist-mode RET'. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
41 ;; |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
42 ;; You can also explicitly save history with `M-x savehist-save' and |
66586
c948bf4e448e
(savehist-mode) <defcustom>: Use custom-set-minor-mode if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66585
diff
changeset
|
43 ;; load it by loading the `savehist-file' with `M-x load-file'. |
66106 | 44 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
45 ;; If you are using a version of Emacs that does not ship with this |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
46 ;; package, be sure to have `savehist.el' in a directory that is in |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
47 ;; your load-path, and to byte-compile it. |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
48 |
66106 | 49 ;;; Code: |
50 | |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
51 (require 'custom) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
52 (eval-when-compile |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
53 (require 'cl)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
54 |
66106 | 55 ;; User variables |
56 | |
57 (defgroup savehist nil | |
58 "Save minibuffer history." | |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
59 :version "22.1" |
66106 | 60 :group 'minibuffer) |
61 | |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
62 (defcustom savehist-save-minibuffer-history t |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
63 "If non-nil, save all recorded minibuffer histories. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
64 If you want to save only specific histories, use `savehist-save-hook' to |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
65 modify the value of `savehist-minibuffer-history-variables'." |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
66 :type 'boolean |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
67 :group 'savehist) |
66106 | 68 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
69 (defcustom savehist-additional-variables () |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
70 "List of additional variables to save. |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
71 Each element is a symbol whose value will be persisted across Emacs |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
72 sessions that use savehist. The contents of variables should be |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
73 printable with the Lisp printer. You don't need to add minibuffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
74 history variables to this list, all minibuffer histories will be |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
75 saved automatically as long as `savehist-save-minibuffer-history' is |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
76 non-nil. |
66106 | 77 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
78 User options should be saved with the customize interface. This |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
79 list is useful for saving automatically updated variables that are not |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
80 minibuffer histories, such as `compile-command' or `kill-ring'." |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
81 :type '(repeat variable) |
66106 | 82 :group 'savehist) |
83 | |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
84 (defcustom savehist-ignored-variables nil ;; '(command-history) |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
85 "List of additional variables not to save." |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
86 :type '(repeat variable) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
87 :group 'savehist) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
88 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
89 (defcustom savehist-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
98866
diff
changeset
|
90 (locate-user-emacs-file "history" ".emacs-history") |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
91 "File name where minibuffer history is saved to and loaded from. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
92 The minibuffer history is a series of Lisp expressions loaded |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
93 automatically when `savehist-mode' is turned on. See `savehist-mode' |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
94 for more details. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
95 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
96 If you want your minibuffer history shared between Emacs and XEmacs, |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
97 customize this value and make sure that `savehist-coding-system' is |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
98 set to a coding system that exists in both emacsen." |
66106 | 99 :type 'file |
100 :group 'savehist) | |
101 | |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
102 (defcustom savehist-file-modes #o600 |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
103 "Default permissions of the history file. |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
104 This is decimal, not octal. The default is 384 (0600 in octal). |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
105 Set to nil to use the default permissions that Emacs uses, typically |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
106 mandated by umask. The default is a bit more restrictive to protect |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
107 the user's privacy." |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
108 :type 'integer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
109 :group 'savehist) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
110 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
111 (defcustom savehist-autosave-interval (* 5 60) |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
112 "The interval between autosaves of minibuffer history. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
113 If set to nil, disables timer-based autosaving." |
106335
efe6269d9301
* savehist.el (savehist-autosave-interval): Allow setting to nil
Juanma Barranquero <lekktu@gmail.com>
parents:
105372
diff
changeset
|
114 :type '(choice (const :tag "Disabled" nil) |
efe6269d9301
* savehist.el (savehist-autosave-interval): Allow setting to nil
Juanma Barranquero <lekktu@gmail.com>
parents:
105372
diff
changeset
|
115 (integer :tag "Seconds")) |
66106 | 116 :group 'savehist) |
117 | |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
118 (defcustom savehist-mode-hook nil |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
119 "Hook called when `savehist-mode' is turned on." |
67776
923593002b13
(savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents:
66944
diff
changeset
|
120 :type 'hook |
923593002b13
(savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents:
66944
diff
changeset
|
121 :group 'savehist) |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
122 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
123 (defcustom savehist-save-hook nil |
66586
c948bf4e448e
(savehist-mode) <defcustom>: Use custom-set-minor-mode if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66585
diff
changeset
|
124 "Hook called by `savehist-save' before saving the variables. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
125 You can use this hook to influence choice and content of variables to |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
126 save." |
66944
917a63a49adf
(savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents:
66934
diff
changeset
|
127 :type 'hook |
917a63a49adf
(savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents:
66934
diff
changeset
|
128 :group 'savehist) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
129 |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
130 ;; This should be capable of representing characters used by Emacs. |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
131 ;; We prefer UTF-8 over ISO 2022 because it is well-known outside |
94286 | 132 ;; Mule. XEmacs prior to 21.5 had UTF-8 provided by an external |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
133 ;; package which may not be loaded, which is why we check for version. |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
134 (defvar savehist-coding-system (if (and (featurep 'xemacs) |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
135 (<= emacs-major-version 21) |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
136 (< emacs-minor-version 5)) |
87544
0a47345ea1c3
(savehist-coding-system): Default to a variant coding system
Juanma Barranquero <lekktu@gmail.com>
parents:
85973
diff
changeset
|
137 'iso-2022-8 'utf-8-unix) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
138 "The coding system savehist uses for saving the minibuffer history. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
139 Changing this value while Emacs is running is supported, but considered |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
140 unwise, unless you know what you are doing.") |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
141 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
142 ;; Internal variables. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
143 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
144 (defvar savehist-timer nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
145 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
146 (defvar savehist-last-checksum nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
147 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
148 (defvar savehist-minibuffer-history-variables nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
149 "List of minibuffer histories. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
150 The contents of this variable is built while Emacs is running, and saved |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
151 along with minibuffer history. You can change its value off |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
152 `savehist-save-hook' to influence which variables are saved.") |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
153 |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
154 (defconst savehist-no-conversion (if (featurep 'xemacs) 'binary 'no-conversion) |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
155 "Coding system without any conversion. |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
156 This is used for calculating an internal checksum. Should be as fast |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
157 as possible, ideally simply exposing the internal representation of |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
158 buffer text.") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
159 |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
160 (defvar savehist-loaded nil |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
161 "Whether the history has already been loaded. |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
162 This prevents toggling `savehist-mode' from destroying existing |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
163 minibuffer history.") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
164 |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
165 (when (featurep 'xemacs) |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
166 ;; Must declare this under XEmacs, which doesn't have built-in |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
167 ;; minibuffer history truncation. |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
168 (defvar history-length 100)) |
66106 | 169 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
170 ;; Functions. |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
171 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
172 ;;;###autoload |
108220
0b37f86b040e
Use define-minor-mode where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106815
diff
changeset
|
173 (define-minor-mode savehist-mode |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
174 "Toggle savehist-mode. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
175 Positive ARG turns on `savehist-mode'. When on, savehist-mode causes |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
176 minibuffer history to be saved periodically and when exiting Emacs. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
177 When turned on for the first time in an Emacs session, it causes the |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
178 previous minibuffer history to be loaded from `savehist-file'. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
179 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
180 This mode should normally be turned on from your Emacs init file. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
181 Calling it at any other time replaces your current minibuffer histories, |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
182 which is probably undesirable." |
108220
0b37f86b040e
Use define-minor-mode where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106815
diff
changeset
|
183 :global t |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
184 (if (not savehist-mode) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
185 (savehist-uninstall) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
186 (when (and (not savehist-loaded) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
187 (file-exists-p savehist-file)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
188 (condition-case errvar |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
189 (progn |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
190 ;; Don't set coding-system-for-read -- we rely on the |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
191 ;; coding cookie to convey that information. That way, if |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
192 ;; the user changes the value of savehist-coding-system, |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
193 ;; we can still correctly load the old file. |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
100908
diff
changeset
|
194 (load savehist-file nil (not (called-interactively-p 'interactive))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
195 (setq savehist-loaded t)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
196 (error |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
197 ;; Don't install the mode if reading failed. Doing so would |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
198 ;; effectively destroy the user's data at the next save. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
199 (setq savehist-mode nil) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
200 (savehist-uninstall) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
201 (signal (car errvar) (cdr errvar))))) |
108220
0b37f86b040e
Use define-minor-mode where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106815
diff
changeset
|
202 (savehist-install))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
203 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
204 (defun savehist-load () |
94169
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
205 "Load the variables stored in `savehist-file' and turn on `savehist-mode'. |
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
206 If `savehist-file' is in the old format that doesn't record |
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
207 the value of `savehist-minibuffer-history-variables', that |
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
208 value is deducted from the contents of the file." |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
209 (savehist-mode 1) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
210 ;; Old versions of savehist distributed with XEmacs didn't save |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
211 ;; savehist-minibuffer-history-variables. If that variable is nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
212 ;; after loading the file, try to intuit the intended value. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
213 (when (null savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
214 (setq savehist-minibuffer-history-variables |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
215 (with-temp-buffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
216 (ignore-errors |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
217 (insert-file-contents savehist-file)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
218 (let ((vars ()) form) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
219 (while (setq form (condition-case nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
220 (read (current-buffer)) (error nil))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
221 ;; Each form read is of the form (setq VAR VALUE). |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
222 ;; Collect VAR, i.e. (nth form 1). |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
223 (push (nth 1 form) vars)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
224 vars))))) |
94169
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
225 (make-obsolete 'savehist-load 'savehist-mode "22.1") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
226 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
227 (defun savehist-install () |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
228 "Hook savehist into Emacs. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
229 Normally invoked by calling `savehist-mode' to set the minor mode. |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
230 Installs `savehist-autosave' in `kill-emacs-hook' and on a timer. |
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
231 To undo this, call `savehist-uninstall'." |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
232 (add-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
233 (add-hook 'kill-emacs-hook 'savehist-autosave) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
234 ;; Install an invocation of savehist-autosave on a timer. This |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
235 ;; should not cause noticeable delays for users -- savehist-autosave |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
236 ;; executes in under 5 ms on my system. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
237 (when (and savehist-autosave-interval |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
238 (null savehist-timer)) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
239 (setq savehist-timer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
240 (if (featurep 'xemacs) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
241 (start-itimer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
242 "savehist" 'savehist-autosave savehist-autosave-interval |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
243 savehist-autosave-interval) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
244 (run-with-timer savehist-autosave-interval |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
245 savehist-autosave-interval 'savehist-autosave))))) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
246 |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
247 (defun savehist-uninstall () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
248 "Undo installing savehist. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
249 Normally invoked by calling `savehist-mode' to unset the minor mode." |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
250 (remove-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
251 (remove-hook 'kill-emacs-hook 'savehist-autosave) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
252 (when savehist-timer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
253 (if (featurep 'xemacs) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
254 (delete-itimer savehist-timer) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
255 (cancel-timer savehist-timer)) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
256 (setq savehist-timer nil))) |
66106 | 257 |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
258 (defun savehist-save (&optional auto-save) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
259 "Save the values of minibuffer history variables. |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
260 Unbound symbols referenced in `savehist-additional-variables' are ignored. |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
261 If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
262 and don't save the buffer if they are the same." |
66106 | 263 (interactive) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
264 (with-temp-buffer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
265 (insert |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
266 (format ";; -*- mode: emacs-lisp; coding: %s -*-\n" savehist-coding-system) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
267 ";; Minibuffer history file, automatically generated by `savehist'.\n\n") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
268 (run-hooks 'savehist-save-hook) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
269 (let ((print-length nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
270 (print-string-length nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
271 (print-level nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
272 (print-readably t) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
273 (print-quoted t)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
274 ;; Save the minibuffer histories, along with the value of |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
275 ;; savehist-minibuffer-history-variables itself. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
276 (when savehist-save-minibuffer-history |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
277 (prin1 `(setq savehist-minibuffer-history-variables |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
278 ',savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
279 (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
280 (insert ?\n) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
281 (dolist (symbol savehist-minibuffer-history-variables) |
79264
0c1e5fd29009
(savehist-save): Obey savehist-ignored-variables.
Richard M. Stallman <rms@gnu.org>
parents:
79193
diff
changeset
|
282 (when (and (boundp symbol) |
0c1e5fd29009
(savehist-save): Obey savehist-ignored-variables.
Richard M. Stallman <rms@gnu.org>
parents:
79193
diff
changeset
|
283 (not (memq symbol savehist-ignored-variables))) |
79193
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
284 (let ((value (savehist-trim-history (symbol-value symbol))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
285 excess-space) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
286 (when value ; Don't save empty histories. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
287 (insert "(setq ") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
288 (prin1 symbol (current-buffer)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
289 (insert " '(") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
290 ;; We will print an extra space before the first element. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
291 ;; Record where that is. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
292 (setq excess-space (point)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
293 ;; Print elements of VALUE one by one, carefully. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
294 (dolist (elt value) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
295 (let ((start (point))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
296 (insert " ") |
98257 | 297 ;; Try to print and then to read an element. |
79193
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
298 (condition-case nil |
98255
9bbf41625624
Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
299 (progn |
9bbf41625624
Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
300 (prin1 elt (current-buffer)) |
9bbf41625624
Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
301 (save-excursion |
9bbf41625624
Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
302 (goto-char start) |
9bbf41625624
Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
303 (read (current-buffer)))) |
79193
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
304 (error |
98257 | 305 ;; If writing or reading gave an error, comment it out. |
79193
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
306 (goto-char start) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
307 (insert "\n") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
308 (while (not (eobp)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
309 (insert ";;; ") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
310 (forward-line 1)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
311 (insert "\n"))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
312 (goto-char (point-max)))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
313 ;; Delete the extra space before the first element. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
314 (save-excursion |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
315 (goto-char excess-space) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
316 (if (eq (following-char) ?\s) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
317 (delete-region (point) (1+ (point))))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
318 (insert "))\n")))))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
319 ;; Save the additional variables. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
320 (dolist (symbol savehist-additional-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
321 (when (boundp symbol) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
322 (let ((value (symbol-value symbol))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
323 (when (savehist-printable value) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
324 (prin1 `(setq ,symbol ',value) (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
325 (insert ?\n)))))) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
326 ;; If autosaving, avoid writing if nothing has changed since the |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
327 ;; last write. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
328 (let ((checksum (md5 (current-buffer) nil nil savehist-no-conversion))) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
329 (unless (and auto-save (equal checksum savehist-last-checksum)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
330 ;; Set file-precious-flag when saving the buffer because we |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
331 ;; don't want a half-finished write ruining the entire |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
332 ;; history. Remember that this is run from a timer and from |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
333 ;; kill-emacs-hook, and also that multiple Emacs instances |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
334 ;; could write to this file at once. |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
335 (let ((file-precious-flag t) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
336 (coding-system-for-write savehist-coding-system)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
337 (write-region (point-min) (point-max) savehist-file nil |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
100908
diff
changeset
|
338 (unless (called-interactively-p 'interactive) 'quiet))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
339 (when savehist-file-modes |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
340 (set-file-modes savehist-file savehist-file-modes)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
341 (setq savehist-last-checksum checksum))))) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
342 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
343 (defun savehist-autosave () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
344 "Save the minibuffer history if it has been modified since the last save. |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
345 Does nothing if `savehist-mode' is off." |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
346 (when savehist-mode |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
347 (savehist-save t))) |
66106 | 348 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
349 (defun savehist-trim-history (value) |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
350 "Retain only the first `history-length' items in VALUE. |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
351 Only used under XEmacs, which doesn't (yet) implement automatic |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
352 trimming of history lists to `history-length' items." |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
353 (if (and (featurep 'xemacs) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
354 (natnump history-length) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
355 (> (length value) history-length)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
356 ;; Equivalent to `(subseq value 0 history-length)', but doesn't |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
357 ;; need cl-extra at run-time. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
358 (loop repeat history-length collect (pop value)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
359 value)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
360 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
361 (defun savehist-printable (value) |
66121
b1015e4158db
Don't require CL at runtime.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66120
diff
changeset
|
362 "Return non-nil if VALUE is printable." |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
363 (cond |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
364 ;; Quick response for oft-encountered types known to be printable. |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
365 ((stringp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
366 ((numberp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
367 ((symbolp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
368 (t |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
369 ;; For others, check explicitly. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
370 (with-temp-buffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
371 (condition-case nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
372 (let ((print-readably t) (print-level nil)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
373 ;; Print the value into a buffer... |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
374 (prin1 value (current-buffer)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
375 ;; ...and attempt to read it. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
376 (read (point-min-marker)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
377 ;; The attempt worked: the object is printable. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
378 t) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
379 ;; The attempt failed: the object is not printable. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
380 (error nil)))))) |
66106 | 381 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
382 (defun savehist-minibuffer-hook () |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
383 (unless (or (eq minibuffer-history-variable t) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
384 ;; XEmacs sets minibuffer-history-variable to t to mean "no |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
385 ;; history is being recorded". |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
386 (memq minibuffer-history-variable savehist-ignored-variables)) |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
387 (add-to-list 'savehist-minibuffer-history-variables |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
388 minibuffer-history-variable))) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
389 |
66106 | 390 (provide 'savehist) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
391 |
66129 | 392 ;; arch-tag: b3ce47f4-c5ad-4ebc-ad02-73aba705cf9f |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
393 |
66106 | 394 ;;; savehist.el ends here |