[Emacs-diffs] /srv/bzr/emacs/trunk r107503: * saveplace.el (save-place-to-alist)

[Tassilo Horn]

------------------------------------------------------------
revno: 107503
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Sun 2012-03-04 17:56:21 +0100
message:
  * saveplace.el (save-place-to-alist)
   (save-place-ignore-files-regexp): Allow value nil to disable this
   feature.
modified:
  lisp/ChangeLog
  lisp/saveplace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-04 15:03:51 +0000
+++ b/lisp/ChangeLog    2012-03-04 16:56:21 +0000
@@ -1,3 +1,9 @@
+2012-03-04  Tassilo Horn  <address@hidden>
+
+       * saveplace.el (save-place-to-alist)
+       (save-place-ignore-files-regexp): Allow value nil to disable this
+       feature.
+
 2012-03-04  Chong Yidong  <address@hidden>
 
        * faces.el (face-spec-reset-face): For the default face, reset the

=== modified file 'lisp/saveplace.el'
--- a/lisp/saveplace.el 2012-02-18 19:04:28 +0000
+++ b/lisp/saveplace.el 2012-03-04 16:56:21 +0000
@@ -132,9 +132,10 @@
 
 (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 @@
   ;; 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)