Mercurial > emacs

annotate lisp/savehist.el @ 106569:d92d9cf06c0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* info.el (Info-hide-cookies-node): Before hiding a cookie, check if it already has the `display' property added by `Info-display-images-node', and not put the `invisible' property in this case.
author Juri Linkov <juri@jurta.org>
date Mon, 14 Dec 2009 05:09:08 +0000 (2009-12-14)
parents 8241fe93acbf
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
106338
8241fe93acbf Update maintainer per comment from HN in bug#5056: "I no longer
Glenn Morris <rgm@gnu.org>
parents: 106335
diff changeset
3 ;; Copyright (C) 1997, 2005, 2006, 2007, 2008, 2009
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;;; Code:
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 ;; User variables
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 (defgroup savehist nil
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 "Save minibuffer history."
69780
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
59 :version "22.1"
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 :group 'minibuffer)
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
62 ;;;###autoload
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
63 (defcustom savehist-mode nil
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
64 "Mode for automatic saving of minibuffer history.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
65 Set this by calling the `savehist-mode' function or using the customize
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
66 interface."
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
67 :type 'boolean
66871
17486c85326e (savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66586
diff changeset
68 :set (lambda (symbol value) (savehist-mode (or value 0)))
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
69 :initialize 'custom-initialize-default
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
70 :require 'savehist
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
71 :group 'savehist)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
72
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
73 (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
74 "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
75 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
76 modify the value of `savehist-minibuffer-history-variables'."
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
77 :type 'boolean
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
78 :group 'savehist)
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
80 (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
81 "List of additional variables to save.
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
82 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
83 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
84 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
85 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
86 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
87 non-nil.
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
89 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
90 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
91 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
92 :type '(repeat variable)
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 :group 'savehist)
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94
69780
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
95 (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
96 "List of additional variables not to save."
69780
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
97 :type '(repeat variable)
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
98 :group 'savehist)
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
99
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
100 (defcustom savehist-file
99106
814d2d823dd7 New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents: 98866
diff changeset
101 (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
102 "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
103 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
104 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
105 for more details.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
106
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
107 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
108 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
109 set to a coding system that exists in both emacsen."
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 :type 'file
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 :group 'savehist)
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
113 (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
114 "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
115 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
116 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
117 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
118 the user's privacy."
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
119 :type 'integer
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
120 :group 'savehist)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
121
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
122 (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
123 "The interval between autosaves of minibuffer history.
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
124 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
125 :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
126 (integer :tag "Seconds"))
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 :group 'savehist)
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128
66934
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
129 (defcustom savehist-mode-hook nil
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
130 "Hook called when `savehist-mode' is turned on."
67776
923593002b13 (savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents: 66944
diff changeset
131 :type 'hook
923593002b13 (savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents: 66944
diff changeset
132 :group 'savehist)
66934
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
133
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
134 (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
135 "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
136 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
137 save."
66944
917a63a49adf (savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents: 66934
diff changeset
138 :type 'hook
917a63a49adf (savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents: 66934
diff changeset
139 :group 'savehist)
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
140
66871
17486c85326e (savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66586
diff changeset
141 ;; 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
142 ;; We prefer UTF-8 over ISO 2022 because it is well-known outside
94286
684b4c103223 Fix comment typo.
Glenn Morris <rgm@gnu.org>
parents: 94169
diff changeset
143 ;; 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
144 ;; 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
145 (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
146 (<= 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
147 (< emacs-minor-version 5))
87544
0a47345ea1c3 (savehist-coding-system): Default to a variant coding system
Juanma Barranquero <lekktu@gmail.com>
parents: 85973
diff changeset
148 '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
149 "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
150 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
151 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
152
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
153 ;; Internal variables.
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
154
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
155 (defvar savehist-timer nil)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
156
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
157 (defvar savehist-last-checksum nil)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
158
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
159 (defvar savehist-minibuffer-history-variables nil
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
160 "List of minibuffer histories.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
161 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
162 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
163 `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
164
66934
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
165 (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
166 "Coding system without any conversion.
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
167 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
168 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
169 buffer text.")
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
170
66934
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
171 (defvar savehist-loaded nil
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
172 "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
173 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
174 minibuffer history.")
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
175
66871
17486c85326e (savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66586
diff changeset
176 (when (featurep 'xemacs)
17486c85326e (savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66586
diff changeset
177 ;; 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
178 ;; minibuffer history truncation.
17486c85326e (savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66586
diff changeset
179 (defvar history-length 100))
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
181 ;; Functions.
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
182
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
183 ;;;###autoload
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
184 (defun savehist-mode (arg)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
185 "Toggle savehist-mode.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
186 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
187 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
188 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
189 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
190
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
191 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
192 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
193 which is probably undesirable."
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
194 (interactive "P")
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
195 (setq savehist-mode
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
196 (if (null arg)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
197 (not savehist-mode)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
198 (> (prefix-numeric-value arg) 0)))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
199 (if (not savehist-mode)
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 (when (and (not savehist-loaded)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
202 (file-exists-p savehist-file))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
203 (condition-case errvar
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
204 (progn
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
205 ;; 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
206 ;; 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
207 ;; 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
208 ;; 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
209 (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
210 (setq savehist-loaded t))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
211 (error
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
212 ;; 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
213 ;; 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
214 (setq savehist-mode nil)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
215 (savehist-uninstall)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
216 (signal (car errvar) (cdr errvar)))))
66934
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
217 (savehist-install)
f24fb79ea180 (savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66871
diff changeset
218 (run-hooks 'savehist-mode-hook))
66586
c948bf4e448e (savehist-mode) <defcustom>: Use custom-set-minor-mode if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66585
diff changeset
219 ;; Return the new setting.
c948bf4e448e (savehist-mode) <defcustom>: Use custom-set-minor-mode if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66585
diff changeset
220 savehist-mode)
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
221 (add-minor-mode 'savehist-mode "")
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
222
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
223 (defun savehist-load ()
94169
aa2d9460ed1e (savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents: 87544
diff changeset
224 "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
225 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
226 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
227 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
228 (savehist-mode 1)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
229 ;; 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
230 ;; 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
231 ;; 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
232 (when (null savehist-minibuffer-history-variables)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
233 (setq savehist-minibuffer-history-variables
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
234 (with-temp-buffer
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
235 (ignore-errors
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
236 (insert-file-contents savehist-file))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
237 (let ((vars ()) form)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
238 (while (setq form (condition-case nil
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
239 (read (current-buffer)) (error nil)))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
240 ;; 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
241 ;; Collect VAR, i.e. (nth form 1).
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
242 (push (nth 1 form) vars))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
243 vars)))))
94169
aa2d9460ed1e (savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents: 87544
diff changeset
244 (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
245
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
246 (defun savehist-install ()
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
247 "Hook savehist into Emacs.
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
248 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
249 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
250 To undo this, call `savehist-uninstall'."
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
251 (add-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
252 (add-hook 'kill-emacs-hook 'savehist-autosave)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
253 ;; 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
254 ;; should not cause noticeable delays for users -- savehist-autosave
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
255 ;; 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
256 (when (and savehist-autosave-interval
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
257 (null savehist-timer))
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
258 (setq savehist-timer
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
259 (if (featurep 'xemacs)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
260 (start-itimer
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
261 "savehist" 'savehist-autosave savehist-autosave-interval
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
262 savehist-autosave-interval)
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
263 (run-with-timer savehist-autosave-interval
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
264 savehist-autosave-interval 'savehist-autosave)))))
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
265
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
266 (defun savehist-uninstall ()
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
267 "Undo installing savehist.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
268 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
269 (remove-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
270 (remove-hook 'kill-emacs-hook 'savehist-autosave)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
271 (when savehist-timer
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
272 (if (featurep 'xemacs)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
273 (delete-itimer savehist-timer)
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
274 (cancel-timer savehist-timer))
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
275 (setq savehist-timer nil)))
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276
66120
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
277 (defun savehist-save (&optional auto-save)
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
278 "Save the values of minibuffer history variables.
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
279 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
280 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
281 and don't save the buffer if they are the same."
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 (interactive)
66120
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
283 (with-temp-buffer
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
284 (insert
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
285 (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
286 ";; 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
287 (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
288 (let ((print-length nil)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
289 (print-string-length nil)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
290 (print-level nil)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
291 (print-readably t)
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
292 (print-quoted t))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
293 ;; 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
294 ;; savehist-minibuffer-history-variables itself.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
295 (when savehist-save-minibuffer-history
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
296 (prin1 `(setq savehist-minibuffer-history-variables
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
297 ',savehist-minibuffer-history-variables)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
298 (current-buffer))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
299 (insert ?\n)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
300 (dolist (symbol savehist-minibuffer-history-variables)
79264
0c1e5fd29009 (savehist-save): Obey savehist-ignored-variables.
Richard M. Stallman <rms@gnu.org>
parents: 79193
diff changeset
301 (when (and (boundp symbol)
0c1e5fd29009 (savehist-save): Obey savehist-ignored-variables.
Richard M. Stallman <rms@gnu.org>
parents: 79193
diff changeset
302 (not (memq symbol savehist-ignored-variables)))
79193
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
303 (let ((value (savehist-trim-history (symbol-value symbol)))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
304 excess-space)
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
305 (when value ; Don't save empty histories.
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
306 (insert "(setq ")
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
307 (prin1 symbol (current-buffer))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
308 (insert " '(")
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
309 ;; 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
310 ;; Record where that is.
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
311 (setq excess-space (point))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
312 ;; Print elements of VALUE one by one, carefully.
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
313 (dolist (elt value)
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
314 (let ((start (point)))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
315 (insert " ")
98257
fb7bd9d40237 Comments.
Glenn Morris <rgm@gnu.org>
parents: 98255
diff changeset
316 ;; 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
317 (condition-case nil
98255
9bbf41625624 Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
318 (progn
9bbf41625624 Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
319 (prin1 elt (current-buffer))
9bbf41625624 Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
320 (save-excursion
9bbf41625624 Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
321 (goto-char start)
9bbf41625624 Ami Fischman <ami at fischman.org>
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
322 (read (current-buffer))))
79193
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
323 (error
98257
fb7bd9d40237 Comments.
Glenn Morris <rgm@gnu.org>
parents: 98255
diff changeset
324 ;; 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
325 (goto-char start)
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
326 (insert "\n")
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
327 (while (not (eobp))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
328 (insert ";;; ")
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
329 (forward-line 1))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
330 (insert "\n")))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
331 (goto-char (point-max))))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
332 ;; Delete the extra space before the first element.
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
333 (save-excursion
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
334 (goto-char excess-space)
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
335 (if (eq (following-char) ?\s)
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
336 (delete-region (point) (1+ (point)))))
a1c08bc44c8a (savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
337 (insert "))\n"))))))
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
338 ;; Save the additional variables.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
339 (dolist (symbol savehist-additional-variables)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
340 (when (boundp symbol)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
341 (let ((value (symbol-value symbol)))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
342 (when (savehist-printable value)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
343 (prin1 `(setq ,symbol ',value) (current-buffer))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
344 (insert ?\n))))))
66120
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
345 ;; 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
346 ;; last write.
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
347 (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
348 (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
349 ;; 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
350 ;; 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
351 ;; 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
352 ;; kill-emacs-hook, and also that multiple Emacs instances
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
353 ;; 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
354 (let ((file-precious-flag t)
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
355 (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
356 (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
357 (unless (called-interactively-p 'interactive) 'quiet)))
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
358 (when savehist-file-modes
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
359 (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
360 (setq savehist-last-checksum checksum)))))
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
361
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
362 (defun savehist-autosave ()
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
363 "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
364 Does nothing if `savehist-mode' is off."
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
365 (when savehist-mode
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
366 (savehist-save t)))
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
368 (defun savehist-trim-history (value)
68564
bb743714277f (savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents: 67776
diff changeset
369 "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
370 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
371 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
372 (if (and (featurep 'xemacs)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
373 (natnump history-length)
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
374 (> (length value) history-length))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
375 ;; 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
376 ;; need cl-extra at run-time.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
377 (loop repeat history-length collect (pop value))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
378 value))
66120
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
379
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
380 (defun savehist-printable (value)
66121
b1015e4158db Don't require CL at runtime.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66120
diff changeset
381 "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
382 (cond
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
383 ;; 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
384 ((stringp value))
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
385 ((numberp value))
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
386 ((symbolp value))
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
387 (t
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
388 ;; For others, check explicitly.
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
389 (with-temp-buffer
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
390 (condition-case nil
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
391 (let ((print-readably t) (print-level nil))
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
392 ;; Print the value into a buffer...
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
393 (prin1 value (current-buffer))
66120
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
394 ;; ...and attempt to read it.
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
395 (read (point-min-marker))
66120
87310076f109 (savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66106
diff changeset
396 ;; 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
397 t)
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
398 ;; The attempt failed: the object is not printable.
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
399 (error nil))))))
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
401 (defun savehist-minibuffer-hook ()
69780
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
402 (unless (or (eq minibuffer-history-variable t)
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
403 ;; XEmacs sets minibuffer-history-variable to t to mean "no
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
404 ;; history is being recorded".
a86cacdbe08f (savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents: 68651
diff changeset
405 (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
406 (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
407 minibuffer-history-variable)))
66406
9ee3fe90596c Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66316
diff changeset
408
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (provide 'savehist)
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
410
66129
b6299ce0d13f Add arch tagline
Miles Bader <miles@gnu.org>
parents: 66121
diff changeset
411 ;; arch-tag: b3ce47f4-c5ad-4ebc-ad02-73aba705cf9f
66585
00e4363eadb1 Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66406
diff changeset
412
66106
9b8e76617c8c New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 ;;; savehist.el ends here