Mercurial > hg > xemacs-beta

comparison lisp/packages/bookmark.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 5a88923fcbfe
children 850242ba4a81
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
97 ;; the list will be presented in the order it is recorded 97 ;; the list will be presented in the order it is recorded
98 ;; (chronologically), which is actually fairly useful as well. 98 ;; (chronologically), which is actually fairly useful as well.
99 99
100 ;;; User Variables 100 ;;; User Variables
101 101
102 (defvar bookmark-use-annotations nil 102 (defgroup bookmarks nil
103 "Set bookmarks, maybe annotate them, jump to them later."
104 :prefix "bookmark-"
105 :group 'editing)
106
107
108 (defcustom bookmark-use-annotations nil
103 "*If non-nil, saving a bookmark will query for an annotation in a 109 "*If non-nil, saving a bookmark will query for an annotation in a
104 buffer.") 110 buffer."
105 111 :type 'boolean
106 112 :group 'bookmarks)
107 (defvar bookmark-save-flag t 113
114
115 (defcustom bookmark-save-flag t
108 "*Controls when Emacs saves bookmarks to a file. 116 "*Controls when Emacs saves bookmarks to a file.
109 --> Nil means never save bookmarks, except when `bookmark-save' is 117 --> Nil means never save bookmarks, except when `bookmark-save' is
110 explicitly called \(\\[bookmark-save]\). 118 explicitly called \(\\[bookmark-save]\).
111 --> t means save bookmarks when Emacs is killed. 119 --> t means save bookmarks when Emacs is killed.
112 --> Otherwise, it should be a number that is the frequency with which 120 --> Otherwise, it should be a number that is the frequency with which
118 Therefore, the way to get it to save every time you make or delete a 126 Therefore, the way to get it to save every time you make or delete a
119 bookmark is to set this variable to 1 \(or 0, which produces the same 127 bookmark is to set this variable to 1 \(or 0, which produces the same
120 behavior.\) 128 behavior.\)
121 129
122 To specify the file in which to save them, modify the variable 130 To specify the file in which to save them, modify the variable
123 bookmark-default-file, which is `~/.emacs.bmk' by default.") 131 bookmark-default-file, which is `~/.emacs.bmk' by default."
132 :type '(choice (const :tag "Never" nil)
133 (const :tag "On Exit" t)
134 (number :tag "Frequency" 1))
135 :group 'bookmarks)
124 136
125 137
126 (defconst bookmark-old-default-file "~/.emacs-bkmrks" 138 (defconst bookmark-old-default-file "~/.emacs-bkmrks"
127 "*The .emacs.bmk file used to be called this.") 139 "*The .emacs.bmk file used to be called this.")
128 140
137 bookmark-file 149 bookmark-file
138 (convert-standard-filename "~/.emacs.bmk")) 150 (convert-standard-filename "~/.emacs.bmk"))
139 "*File in which to save bookmarks by default.") 151 "*File in which to save bookmarks by default.")
140 152
141 153
142 (defvar bookmark-version-control 'nospecial 154 (defcustom bookmark-version-control 'nospecial
143 "*Whether or not to make numbered backups of the bookmark file. 155 "*Whether or not to make numbered backups of the bookmark file.
144 It can have four values: t, nil, `never', and `nospecial'. 156 It can have four values: t, nil, `never', and `nospecial'.
145 The first three have the same meaning that they do for the 157 The first three have the same meaning that they do for the
146 variable `version-control', and the final value `nospecial' means just 158 variable `version-control', and the final value `nospecial' means just
147 use the value of `version-control'.") 159 use the value of `version-control'."
148 160 :type '(choice (const t) (const nil) (const never) (const nospecial))
149 161 :group 'bookmarks)
150 (defvar bookmark-completion-ignore-case t 162
151 "*Non-nil means bookmark functions ignore case in completion.") 163
152 164 (defcustom bookmark-completion-ignore-case t
153 165 "*Non-nil means bookmark functions ignore case in completion."
154 (defvar bookmark-sort-flag t 166 :type 'boolean
167 :group 'bookmarks)
168
169
170 (defcustom bookmark-sort-flag t
155 "*Non-nil means that bookmarks will be displayed sorted by bookmark 171 "*Non-nil means that bookmarks will be displayed sorted by bookmark
156 name. Otherwise they will be displayed in LIFO order (that is, most 172 name. Otherwise they will be displayed in LIFO order (that is, most
157 recently set ones come first, oldest ones come last).") 173 recently set ones come first, oldest ones come last)."
158 174 :type 'boolean
159 175 :group 'bookmarks)
160 (defvar bookmark-automatically-show-annotations t 176
161 "*Nil means don't show annotations when jumping to a bookmark.") 177
162 178 (defcustom bookmark-automatically-show-annotations t
163 179 "*Nil means don't show annotations when jumping to a bookmark."
164 (defvar bookmark-bmenu-file-column 30 180 :type 'boolean
181 :group 'bookmarks)
182
183
184 (defcustom bookmark-bmenu-file-column 30
165 "*Column at which to display filenames in a buffer listing bookmarks. 185 "*Column at which to display filenames in a buffer listing bookmarks.
166 You can toggle whether files are shown with \\<bookmark-bmenu-mode-map>\\[bookmark-bmenu-toggle-filenames].") 186 You can toggle whether files are shown with \\<bookmark-bmenu-mode-map>\\[bookmark-bmenu-toggle-filenames]."
167 187 :type 'integer
168 188 :group 'bookmarks)
169 (defvar bookmark-bmenu-toggle-filenames t 189
190
191 (defcustom bookmark-bmenu-toggle-filenames t
170 "*Non-nil means show filenames when listing bookmarks. 192 "*Non-nil means show filenames when listing bookmarks.
171 This may result in truncated bookmark names. To disable this, put the 193 This may result in truncated bookmark names. To disable this, put the
172 following in your .emacs: 194 following in your .emacs:
173 195
174 \(setq bookmark-bmenu-toggle-filenames nil\)") 196 \(setq bookmark-bmenu-toggle-filenames nil\)"
175 197 :type 'boolean
176 198 :group 'bookmarks)
177 (defvar bookmark-menu-length 70 199
178 "*Maximum length of a bookmark name displayed on a popup menu.") 200
201 (defcustom bookmark-menu-length 70
202 "*Maximum length of a bookmark name displayed on a popup menu."
203 :type 'integer
204 :group 'bookmarks)
179 205
180 206
181 ;;; No user-serviceable parts beyond this point. 207 ;;; No user-serviceable parts beyond this point.
182 208
183 ;; Is it XEmacs? 209 ;; Is it XEmacs?