Mercurial > emacs
annotate lisp/savehist.el @ 97525:f9aaa1c8b676
*** empty log message ***
author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> |
---|---|
date | Mon, 18 Aug 2008 01:01:59 +0000 |
parents | ee5932bf781d |
children | 9bbf41625624 |
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 |
87544
0a47345ea1c3
(savehist-coding-system): Default to a variant coding system
Juanma Barranquero <lekktu@gmail.com>
parents:
85973
diff
changeset
|
3 ;; Copyright (C) 1997, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
66106 | 4 |
5 ;; Author: Hrvoje Niksic <hniksic@xemacs.org> | |
6 ;; Keywords: minibuffer | |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
7 ;; Version: 24 |
66106 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94286
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
66106 | 12 ;; 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
|
13 ;; 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
|
14 ;; (at your option) any later version. |
66106 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; 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
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
66106 | 23 |
24 ;;; Commentary: | |
25 | |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
26 ;; 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
|
27 ;; 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
|
28 ;; 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
|
29 ;; histories to a file (`~/.emacs-history' by default). Additional |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
30 ;; variables may be specified by customizing |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
31 ;; `savehist-additional-variables'. |
66106 | 32 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
33 ;; 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
|
34 ;; `~/.emacs': |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
35 ;; |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
36 ;; (savehist-mode 1) |
66106 | 37 ;; |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
38 ;; 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
|
39 ;; |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
40 ;; 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
|
41 ;; load it by loading the `savehist-file' with `M-x load-file'. |
66106 | 42 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
43 ;; 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
|
44 ;; 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
|
45 ;; 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
|
46 |
66106 | 47 ;;; Code: |
48 | |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
49 (require 'custom) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
50 (eval-when-compile |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
51 (require 'cl)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
52 |
66106 | 53 ;; User variables |
54 | |
55 (defgroup savehist nil | |
56 "Save minibuffer history." | |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
57 :version "22.1" |
66106 | 58 :group 'minibuffer) |
59 | |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
60 ;;;###autoload |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
61 (defcustom savehist-mode nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
62 "Mode for automatic saving of minibuffer history. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
63 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
|
64 interface." |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
65 :type 'boolean |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
66 :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
|
67 :initialize 'custom-initialize-default |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
68 :require 'savehist |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
69 :group 'savehist) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
70 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
71 (defcustom savehist-save-minibuffer-history t |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
72 "*If non-nil, save all recorded minibuffer histories. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
73 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
|
74 modify the value of `savehist-minibuffer-history-variables'." |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
75 :type 'boolean |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
76 :group 'savehist) |
66106 | 77 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
78 (defcustom savehist-additional-variables () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
79 "*List of additional variables to save. |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
80 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
|
81 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
|
82 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
|
83 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
|
84 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
|
85 non-nil. |
66106 | 86 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
87 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
|
88 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
|
89 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
|
90 :type '(repeat variable) |
66106 | 91 :group 'savehist) |
92 | |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
93 (defcustom savehist-ignored-variables nil ;; '(command-history) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
94 "*List of additional variables not to save." |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
95 :type '(repeat variable) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
96 :group 'savehist) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
97 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
98 (defcustom savehist-file |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
99 (cond |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
100 ;; Backward compatibility with previous versions of savehist. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
101 ((file-exists-p "~/.emacs-history") "~/.emacs-history") |
81349
f067f47d359f
(savehist-file): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
102 ((and (not (featurep 'xemacs)) (file-directory-p user-emacs-directory)) |
f067f47d359f
(savehist-file): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
103 (concat user-emacs-directory "history")) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
104 ((and (featurep 'xemacs) (file-directory-p "~/.xemacs/")) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
105 "~/.xemacs/history") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
106 ;; For users without `~/.emacs.d/' or `~/.xemacs/'. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
107 (t "~/.emacs-history")) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
108 "*File name where minibuffer history is saved to and loaded from. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
109 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
|
110 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
|
111 for more details. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
112 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
113 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
|
114 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
|
115 set to a coding system that exists in both emacsen." |
66106 | 116 :type 'file |
117 :group 'savehist) | |
118 | |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
119 (defcustom savehist-file-modes #o600 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
120 "*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
|
121 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
|
122 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
|
123 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
|
124 the user's privacy." |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
125 :type 'integer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
126 :group 'savehist) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
127 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
128 (defcustom savehist-autosave-interval (* 5 60) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
129 "*The interval between autosaves of minibuffer history. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
130 If set to nil, disables timer-based autosaving." |
66106 | 131 :type 'integer |
132 :group 'savehist) | |
133 | |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
134 (defcustom savehist-mode-hook nil |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
135 "Hook called when `savehist-mode' is turned on." |
67776
923593002b13
(savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents:
66944
diff
changeset
|
136 :type 'hook |
923593002b13
(savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents:
66944
diff
changeset
|
137 :group 'savehist) |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
138 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
139 (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
|
140 "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
|
141 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
|
142 save." |
66944
917a63a49adf
(savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents:
66934
diff
changeset
|
143 :type 'hook |
917a63a49adf
(savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents:
66934
diff
changeset
|
144 :group 'savehist) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
145 |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
146 ;; 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
|
147 ;; We prefer UTF-8 over ISO 2022 because it is well-known outside |
94286 | 148 ;; 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
|
149 ;; 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
|
150 (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
|
151 (<= 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
|
152 (< emacs-minor-version 5)) |
87544
0a47345ea1c3
(savehist-coding-system): Default to a variant coding system
Juanma Barranquero <lekktu@gmail.com>
parents:
85973
diff
changeset
|
153 '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
|
154 "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
|
155 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
|
156 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
|
157 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
158 ;; Internal variables. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
159 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
160 (defvar savehist-timer nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
161 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
162 (defvar savehist-last-checksum nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
163 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
164 (defvar savehist-minibuffer-history-variables nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
165 "List of minibuffer histories. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
166 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
|
167 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
|
168 `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
|
169 |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
170 (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
|
171 "Coding system without any conversion. |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
172 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
|
173 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
|
174 buffer text.") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
175 |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
176 (defvar savehist-loaded nil |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
177 "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
|
178 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
|
179 minibuffer history.") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
180 |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
181 (when (featurep 'xemacs) |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
182 ;; 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
|
183 ;; minibuffer history truncation. |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
184 (defvar history-length 100)) |
66106 | 185 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
186 ;; Functions. |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
187 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
188 ;;;###autoload |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
189 (defun savehist-mode (arg) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
190 "Toggle savehist-mode. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
191 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
|
192 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
|
193 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
|
194 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
|
195 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
196 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
|
197 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
|
198 which is probably undesirable." |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
199 (interactive "P") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
200 (setq savehist-mode |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
201 (if (null arg) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
202 (not savehist-mode) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
203 (> (prefix-numeric-value arg) 0))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
204 (if (not savehist-mode) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
205 (savehist-uninstall) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
206 (when (and (not savehist-loaded) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
207 (file-exists-p savehist-file)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
208 (condition-case errvar |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
209 (progn |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
210 ;; 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
|
211 ;; 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
|
212 ;; 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
|
213 ;; we can still correctly load the old file. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
214 (load savehist-file nil (not (interactive-p))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
215 (setq savehist-loaded t)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
216 (error |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
217 ;; 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
|
218 ;; 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
|
219 (setq savehist-mode nil) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
220 (savehist-uninstall) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
221 (signal (car errvar) (cdr errvar))))) |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
222 (savehist-install) |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
223 (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
|
224 ;; 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
|
225 savehist-mode) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
226 (add-minor-mode 'savehist-mode "") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
227 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
228 (defun savehist-load () |
94169
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
229 "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
|
230 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
|
231 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
|
232 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
|
233 (savehist-mode 1) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
234 ;; 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
|
235 ;; 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
|
236 ;; 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
|
237 (when (null savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
238 (setq savehist-minibuffer-history-variables |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
239 (with-temp-buffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
240 (ignore-errors |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
241 (insert-file-contents savehist-file)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
242 (let ((vars ()) form) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
243 (while (setq form (condition-case nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
244 (read (current-buffer)) (error nil))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
245 ;; 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
|
246 ;; Collect VAR, i.e. (nth form 1). |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
247 (push (nth 1 form) vars)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
248 vars))))) |
94169
aa2d9460ed1e
(savehist-load): Add WHEN to obsolescence declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
87544
diff
changeset
|
249 (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
|
250 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
251 (defun savehist-install () |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
252 "Hook savehist into Emacs. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
253 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
|
254 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
|
255 To undo this, call `savehist-uninstall'." |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
256 (add-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
257 (add-hook 'kill-emacs-hook 'savehist-autosave) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
258 ;; 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
|
259 ;; should not cause noticeable delays for users -- savehist-autosave |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
260 ;; 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
|
261 (when (and savehist-autosave-interval |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
262 (null savehist-timer)) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
263 (setq savehist-timer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
264 (if (featurep 'xemacs) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
265 (start-itimer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
266 "savehist" 'savehist-autosave savehist-autosave-interval |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
267 savehist-autosave-interval) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
268 (run-with-timer savehist-autosave-interval |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
269 savehist-autosave-interval 'savehist-autosave))))) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
270 |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
271 (defun savehist-uninstall () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
272 "Undo installing savehist. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
273 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
|
274 (remove-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
275 (remove-hook 'kill-emacs-hook 'savehist-autosave) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
276 (when savehist-timer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
277 (if (featurep 'xemacs) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
278 (delete-itimer savehist-timer) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
279 (cancel-timer savehist-timer)) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
280 (setq savehist-timer nil))) |
66106 | 281 |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
282 (defun savehist-save (&optional auto-save) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
283 "Save the values of minibuffer history variables. |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
284 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
|
285 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
|
286 and don't save the buffer if they are the same." |
66106 | 287 (interactive) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
288 (with-temp-buffer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
289 (insert |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
290 (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
|
291 ";; 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
|
292 (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
|
293 (let ((print-length nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
294 (print-string-length nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
295 (print-level nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
296 (print-readably t) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
297 (print-quoted t)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
298 ;; 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
|
299 ;; savehist-minibuffer-history-variables itself. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
300 (when savehist-save-minibuffer-history |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
301 (prin1 `(setq savehist-minibuffer-history-variables |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
302 ',savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
303 (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
304 (insert ?\n) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
305 (dolist (symbol savehist-minibuffer-history-variables) |
79264
0c1e5fd29009
(savehist-save): Obey savehist-ignored-variables.
Richard M. Stallman <rms@gnu.org>
parents:
79193
diff
changeset
|
306 (when (and (boundp symbol) |
0c1e5fd29009
(savehist-save): Obey savehist-ignored-variables.
Richard M. Stallman <rms@gnu.org>
parents:
79193
diff
changeset
|
307 (not (memq symbol savehist-ignored-variables))) |
79193
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
308 (let ((value (savehist-trim-history (symbol-value symbol))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
309 excess-space) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
310 (when value ; Don't save empty histories. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
311 (insert "(setq ") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
312 (prin1 symbol (current-buffer)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
313 (insert " '(") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
314 ;; 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
|
315 ;; Record where that is. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
316 (setq excess-space (point)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
317 ;; Print elements of VALUE one by one, carefully. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
318 (dolist (elt value) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
319 (let ((start (point))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
320 (insert " ") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
321 (prin1 elt (current-buffer)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
322 ;; Try to read the element we just printed. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
323 (condition-case nil |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
324 (save-excursion |
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 (read (current-buffer))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
327 (error |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
328 ;; If reading it gets an error, comment it out. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
329 (goto-char start) |
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 (while (not (eobp)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
332 (insert ";;; ") |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
333 (forward-line 1)) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
334 (insert "\n"))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
335 (goto-char (point-max)))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
336 ;; Delete the extra space before the first element. |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
337 (save-excursion |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
338 (goto-char excess-space) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
339 (if (eq (following-char) ?\s) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
340 (delete-region (point) (1+ (point))))) |
a1c08bc44c8a
(savehist-save): Omit unreadable elements.
Richard M. Stallman <rms@gnu.org>
parents:
78236
diff
changeset
|
341 (insert "))\n")))))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
342 ;; Save the additional variables. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
343 (dolist (symbol savehist-additional-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
344 (when (boundp symbol) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
345 (let ((value (symbol-value symbol))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
346 (when (savehist-printable value) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
347 (prin1 `(setq ,symbol ',value) (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
348 (insert ?\n)))))) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
349 ;; 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
|
350 ;; last write. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
351 (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
|
352 (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
|
353 ;; 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
|
354 ;; 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
|
355 ;; 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
|
356 ;; kill-emacs-hook, and also that multiple Emacs instances |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
357 ;; 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
|
358 (let ((file-precious-flag t) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
359 (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
|
360 (write-region (point-min) (point-max) savehist-file nil |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
361 (unless (interactive-p) 'quiet))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
362 (when savehist-file-modes |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
363 (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
|
364 (setq savehist-last-checksum checksum))))) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
365 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
366 (defun savehist-autosave () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
367 "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
|
368 Does nothing if `savehist-mode' is off." |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
369 (when savehist-mode |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
370 (savehist-save t))) |
66106 | 371 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
372 (defun savehist-trim-history (value) |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
373 "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
|
374 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
|
375 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
|
376 (if (and (featurep 'xemacs) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
377 (natnump history-length) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
378 (> (length value) history-length)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
379 ;; 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
|
380 ;; need cl-extra at run-time. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
381 (loop repeat history-length collect (pop value)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
382 value)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
383 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
384 (defun savehist-printable (value) |
66121
b1015e4158db
Don't require CL at runtime.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66120
diff
changeset
|
385 "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
|
386 (cond |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
387 ;; 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
|
388 ((stringp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
389 ((numberp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
390 ((symbolp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
391 (t |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
392 ;; For others, check explicitly. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
393 (with-temp-buffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
394 (condition-case nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
395 (let ((print-readably t) (print-level nil)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
396 ;; Print the value into a buffer... |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
397 (prin1 value (current-buffer)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
398 ;; ...and attempt to read it. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
399 (read (point-min-marker)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
400 ;; 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
|
401 t) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
402 ;; The attempt failed: the object is not printable. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
403 (error nil)))))) |
66106 | 404 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
405 (defun savehist-minibuffer-hook () |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
406 (unless (or (eq minibuffer-history-variable t) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
407 ;; XEmacs sets minibuffer-history-variable to t to mean "no |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
408 ;; history is being recorded". |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
409 (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
|
410 (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
|
411 minibuffer-history-variable))) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
412 |
66106 | 413 (provide 'savehist) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
414 |
66129 | 415 ;; arch-tag: b3ce47f4-c5ad-4ebc-ad02-73aba705cf9f |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
416 |
66106 | 417 ;;; savehist.el ends here |