Mercurial > emacs
annotate lisp/savehist.el @ 70231:b98a2445fe1f
(add-log-iso8601-time-zone): Make parameter optional.
(add-log-iso8601-time-string): Fix call to format-time-string.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 26 Apr 2006 14:16:05 +0000 |
parents | 9a5e8a784858 |
children | e3694f1cb928 |
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 |
68651
3bd95f4f2941
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
68564
diff
changeset
|
3 ;; Copyright (C) 1997, 2005, 2006 Free Software Foundation |
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 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
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 | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
24 ;; Boston, MA 02110-1301, USA. | |
25 | |
26 ;;; Commentary: | |
27 | |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
28 ;; Many editors (e.g. Vim) have the feature of saving minibuffer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
29 ;; history to an external file after exit. This package provides the |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
30 ;; same feature in Emacs. When set up, it saves recorded minibuffer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
31 ;; histories to a file (`~/.emacs-history' by default). Additional |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
32 ;; variables may be specified by customizing |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
33 ;; `savehist-additional-variables'. |
66106 | 34 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
35 ;; To use savehist, turn on savehist-mode by putting the following in |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
36 ;; `~/.emacs': |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
37 ;; |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
38 ;; (savehist-mode 1) |
66106 | 39 ;; |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
40 ;; or with customize: `M-x customize-option RET savehist-mode RET'. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
41 ;; |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
42 ;; You can also explicitly save history with `M-x savehist-save' and |
66586
c948bf4e448e
(savehist-mode) <defcustom>: Use custom-set-minor-mode if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66585
diff
changeset
|
43 ;; load it by loading the `savehist-file' with `M-x load-file'. |
66106 | 44 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
45 ;; If you are using a version of Emacs that does not ship with this |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
46 ;; package, be sure to have `savehist.el' in a directory that is in |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
47 ;; your load-path, and to byte-compile it. |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
48 |
66106 | 49 ;;; Code: |
50 | |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
51 (require 'custom) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
52 (eval-when-compile |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
53 (require 'cl)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
54 |
66106 | 55 ;; User variables |
56 | |
57 (defgroup savehist nil | |
58 "Save minibuffer history." | |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
59 :version "22.1" |
66106 | 60 :group 'minibuffer) |
61 | |
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 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
74 "*If non-nil, save all recorded minibuffer histories. |
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 | 79 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
80 (defcustom savehist-additional-variables () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
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 | 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 | 93 :group 'savehist) |
94 | |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
95 (defcustom savehist-ignored-variables nil ;; '(command-history) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
96 "*List of additional variables not to save." |
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 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
101 (cond |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
102 ;; Backward compatibility with previous versions of savehist. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
103 ((file-exists-p "~/.emacs-history") "~/.emacs-history") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
104 ((and (not (featurep 'xemacs)) (file-directory-p "~/.emacs.d/")) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
105 "~/.emacs.d/history") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
106 ((and (featurep 'xemacs) (file-directory-p "~/.xemacs/")) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
107 "~/.xemacs/history") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
108 ;; For users without `~/.emacs.d/' or `~/.xemacs/'. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
109 (t "~/.emacs-history")) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
110 "*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
|
111 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
|
112 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
|
113 for more details. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
114 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
115 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
|
116 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
|
117 set to a coding system that exists in both emacsen." |
66106 | 118 :type 'file |
119 :group 'savehist) | |
120 | |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
121 (defcustom savehist-file-modes #o600 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
122 "*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
|
123 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
|
124 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
|
125 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
|
126 the user's privacy." |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
127 :type 'integer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
128 :group 'savehist) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
129 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
130 (defcustom savehist-autosave-interval (* 5 60) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
131 "*The interval between autosaves of minibuffer history. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
132 If set to nil, disables timer-based autosaving." |
66106 | 133 :type 'integer |
134 :group 'savehist) | |
135 | |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
136 (defcustom savehist-mode-hook nil |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
137 "Hook called when `savehist-mode' is turned on." |
67776
923593002b13
(savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents:
66944
diff
changeset
|
138 :type 'hook |
923593002b13
(savehist-mode-hook): Add `:group'.
Juri Linkov <juri@jurta.org>
parents:
66944
diff
changeset
|
139 :group 'savehist) |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
140 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
141 (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
|
142 "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
|
143 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
|
144 save." |
66944
917a63a49adf
(savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents:
66934
diff
changeset
|
145 :type 'hook |
917a63a49adf
(savehist-save-hook): Add :group.
Richard M. Stallman <rms@gnu.org>
parents:
66934
diff
changeset
|
146 :group 'savehist) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
147 |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
148 ;; 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
|
149 ;; We prefer UTF-8 over ISO 2022 because it is well-known outside |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
150 ;; Mule. XEmacs prir to 21.5 had UTF-8 provided by an external |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
151 ;; 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
|
152 (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
|
153 (<= 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
|
154 (< emacs-minor-version 5)) |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
155 'iso-2022-8 'utf-8) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
156 "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
|
157 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
|
158 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
|
159 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
160 ;; Internal variables. |
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-timer nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
163 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
164 (defvar savehist-last-checksum nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
165 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
166 (defvar savehist-minibuffer-history-variables nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
167 "List of minibuffer histories. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
168 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
|
169 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
|
170 `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
|
171 |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
172 (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
|
173 "Coding system without any conversion. |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
174 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
|
175 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
|
176 buffer text.") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
177 |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
178 (defvar savehist-loaded nil |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
179 "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
|
180 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
|
181 minibuffer history.") |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
182 |
66871
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
183 (when (featurep 'xemacs) |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
184 ;; 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
|
185 ;; minibuffer history truncation. |
17486c85326e
(savehist-mode): Don't bother with `custom-set-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66586
diff
changeset
|
186 (defvar history-length 100)) |
66106 | 187 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
188 ;; Functions. |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
189 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
190 ;;;###autoload |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
191 (defun savehist-mode (arg) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
192 "Toggle savehist-mode. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
193 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
|
194 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
|
195 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
|
196 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
|
197 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
198 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
|
199 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
|
200 which is probably undesirable." |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
201 (interactive "P") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
202 (setq savehist-mode |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
203 (if (null arg) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
204 (not savehist-mode) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
205 (> (prefix-numeric-value arg) 0))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
206 (if (not savehist-mode) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
207 (savehist-uninstall) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
208 (when (and (not savehist-loaded) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
209 (file-exists-p savehist-file)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
210 (condition-case errvar |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
211 (progn |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
212 ;; 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
|
213 ;; 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
|
214 ;; 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
|
215 ;; we can still correctly load the old file. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
216 (load savehist-file nil (not (interactive-p))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
217 (setq savehist-loaded t)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
218 (error |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
219 ;; 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
|
220 ;; 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
|
221 (setq savehist-mode nil) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
222 (savehist-uninstall) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
223 (signal (car errvar) (cdr errvar))))) |
66934
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
224 (savehist-install) |
f24fb79ea180
(savehist-mode-hook): Re-add the var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66871
diff
changeset
|
225 (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
|
226 ;; 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
|
227 savehist-mode) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
228 (add-minor-mode 'savehist-mode "") |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
229 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
230 (defun savehist-load () |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
231 "Obsolete function provided for transition from old versions of savehist. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
232 Don't call this from new code, use (savehist-mode 1) instead. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
233 |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
234 This function loads the variables stored in `savehist-file' and turns on |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
235 `savehist-mode'. If `savehist-file' is in the old format that doesn't |
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
236 record the value of `savehist-minibuffer-history-variables', that value |
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
237 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
|
238 (savehist-mode 1) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
239 ;; 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
|
240 ;; 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
|
241 ;; 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
|
242 (when (null savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
243 (setq savehist-minibuffer-history-variables |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
244 (with-temp-buffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
245 (ignore-errors |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
246 (insert-file-contents savehist-file)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
247 (let ((vars ()) form) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
248 (while (setq form (condition-case nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
249 (read (current-buffer)) (error nil))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
250 ;; 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
|
251 ;; Collect VAR, i.e. (nth form 1). |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
252 (push (nth 1 form) vars)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
253 vars))))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
254 (make-obsolete 'savehist-load 'savehist-mode) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
255 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
256 (defun savehist-install () |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
257 "Hook savehist into Emacs. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
258 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
|
259 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
|
260 To undo this, call `savehist-uninstall'." |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
261 (add-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
262 (add-hook 'kill-emacs-hook 'savehist-autosave) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
263 ;; 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
|
264 ;; should not cause noticeable delays for users -- savehist-autosave |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
265 ;; 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
|
266 (when (and savehist-autosave-interval |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
267 (null savehist-timer)) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
268 (setq savehist-timer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
269 (if (featurep 'xemacs) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
270 (start-itimer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
271 "savehist" 'savehist-autosave savehist-autosave-interval |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
272 savehist-autosave-interval) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
273 (run-with-timer savehist-autosave-interval |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
274 savehist-autosave-interval 'savehist-autosave))))) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
275 |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
276 (defun savehist-uninstall () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
277 "Undo installing savehist. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
278 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
|
279 (remove-hook 'minibuffer-setup-hook 'savehist-minibuffer-hook) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
280 (remove-hook 'kill-emacs-hook 'savehist-autosave) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
281 (when savehist-timer |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
282 (if (featurep 'xemacs) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
283 (delete-itimer savehist-timer) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
284 (cancel-timer savehist-timer)) |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
285 (setq savehist-timer nil))) |
66106 | 286 |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
287 (defun savehist-save (&optional auto-save) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
288 "Save the values of minibuffer history variables. |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
289 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
|
290 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
|
291 and don't save the buffer if they are the same." |
66106 | 292 (interactive) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
293 (with-temp-buffer |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
294 (insert |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
295 (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
|
296 ";; 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
|
297 (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
|
298 (let ((print-length nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
299 (print-string-length nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
300 (print-level nil) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
301 (print-readably t) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
302 (print-quoted t)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
303 ;; 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
|
304 ;; savehist-minibuffer-history-variables itself. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
305 (when savehist-save-minibuffer-history |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
306 (prin1 `(setq savehist-minibuffer-history-variables |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
307 ',savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
308 (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
309 (insert ?\n) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
310 (dolist (symbol savehist-minibuffer-history-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
311 (when (boundp symbol) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
312 (let ((value (savehist-trim-history (symbol-value symbol)))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
313 (when value ; don't save empty histories |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
314 (prin1 `(setq ,symbol ',value) (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
315 (insert ?\n)))))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
316 ;; Save the additional variables. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
317 (dolist (symbol savehist-additional-variables) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
318 (when (boundp symbol) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
319 (let ((value (symbol-value symbol))) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
320 (when (savehist-printable value) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
321 (prin1 `(setq ,symbol ',value) (current-buffer)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
322 (insert ?\n)))))) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
323 ;; 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
|
324 ;; last write. |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
325 (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
|
326 (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
|
327 ;; 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
|
328 ;; 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
|
329 ;; 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
|
330 ;; kill-emacs-hook, and also that multiple Emacs instances |
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
331 ;; 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
|
332 (let ((file-precious-flag t) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
333 (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
|
334 (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
|
335 (unless (interactive-p) 'quiet))) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
336 (when savehist-file-modes |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
337 (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
|
338 (setq savehist-last-checksum checksum))))) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
339 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
340 (defun savehist-autosave () |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
341 "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
|
342 Does nothing if `savehist-mode' is off." |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
343 (when savehist-mode |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
344 (savehist-save t))) |
66106 | 345 |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
346 (defun savehist-trim-history (value) |
68564
bb743714277f
(savehist-loaded, savehist-load, savehist-install, savehist-autosave,
Juanma Barranquero <lekktu@gmail.com>
parents:
67776
diff
changeset
|
347 "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
|
348 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
|
349 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
|
350 (if (and (featurep 'xemacs) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
351 (natnump history-length) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
352 (> (length value) history-length)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
353 ;; 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
|
354 ;; need cl-extra at run-time. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
355 (loop repeat history-length collect (pop value)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
356 value)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
357 |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
358 (defun savehist-printable (value) |
66121
b1015e4158db
Don't require CL at runtime.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66120
diff
changeset
|
359 "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
|
360 (cond |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
361 ;; 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
|
362 ((stringp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
363 ((numberp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
364 ((symbolp value)) |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
365 (t |
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
366 ;; For others, check explicitly. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
367 (with-temp-buffer |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
368 (condition-case nil |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
369 (let ((print-readably t) (print-level nil)) |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
370 ;; Print the value into a buffer... |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
371 (prin1 value (current-buffer)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
372 ;; ...and attempt to read it. |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
373 (read (point-min-marker)) |
66120
87310076f109
(savehist-autosave-interval, savehist-coding-system, savehist-timer)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66106
diff
changeset
|
374 ;; 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
|
375 t) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
376 ;; The attempt failed: the object is not printable. |
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
377 (error nil)))))) |
66106 | 378 |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
379 (defun savehist-minibuffer-hook () |
69780
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
380 (unless (or (eq minibuffer-history-variable t) |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
381 ;; XEmacs sets minibuffer-history-variable to t to mean "no |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
382 ;; history is being recorded". |
a86cacdbe08f
(savehist): Add :version.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
68651
diff
changeset
|
383 (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
|
384 (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
|
385 minibuffer-history-variable))) |
66406
9ee3fe90596c
Require CL while compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66316
diff
changeset
|
386 |
66106 | 387 (provide 'savehist) |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
388 |
66129 | 389 ;; arch-tag: b3ce47f4-c5ad-4ebc-ad02-73aba705cf9f |
66585
00e4363eadb1
Sync up to version 19.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66406
diff
changeset
|
390 |
66106 | 391 ;;; savehist.el ends here |