mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

* saveplace.el (save-place-to-alist)

Browse Source 
(save-place-ignore-files-regexp): Allow value nil to disable this
 feature.
This commit is contained in:
Tassilo Horn 2012-03-04 17:56:21 +01:00
parent c349f4e6ff
commit 5dd11cfee6
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2012-03-04 Tassilo Horn <tassilo@member.fsf.org>
* saveplace.el (save-place-to-alist)
(save-place-ignore-files-regexp): Allow value nil to disable this
feature.
2012-03-04 Chong Yidong <cyd@gnu.org>
* faces.el (face-spec-reset-face): For the default face, reset the

10
lisp/saveplace.el
View File

@ -132,9 +132,10 @@ removable and network volumes."
(defcustom save-place-ignore-files-regexp
"\\(?:COMMIT_EDITMSG\\|hg-editor-[[:alnum:]]+\\.txt\\|svn-commit\\.tmp\\|bzr_log\\.[[:alnum:]]+\\)$"
"Regexp matching files for which no location should be recorded.
"Regexp matching files for which no position should be recorded.
Useful for temporary file such as commit message files that are
automatically created by the VCS."
automatically created by the VCS. If set to nil, this feature is
disabled, i.e., the position is recorded for all files."
:version "24.1"
:type 'regexp :group 'save-place)
@ -169,8 +170,9 @@ To save places automatically in all files, put this in your `.emacs' file:
;; will be saved again when Emacs is killed.
(or save-place-loaded (load-save-place-alist-from-file))
(when (and buffer-file-name
(not (string-match save-place-ignore-files-regexp
buffer-file-name)))
(or (not save-place-ignore-files-regexp)
(not (string-match save-place-ignore-files-regexp
buffer-file-name))))
(let ((cell (assoc buffer-file-name save-place-alist))
(position (if (not (eq major-mode 'hexl-mode))
(point)