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