Commit 9be6a039 authored by David Ponce's avatar David Ponce
Browse files

(recentf-save-file-modes): New option.

(recentf-save-list): Use it.
parent da16962a
2005-09-15 David Ponce <david@dponce.com>
* recentf.el (recentf-save-file-modes): New option.
(recentf-save-list): Use it.
2005-09-15 Nick Roberts <nickrob@snap.net.nz>
 
* bindings.el (mode-line-eol-desc, mode-line-coding-system-map)
......
......@@ -74,6 +74,15 @@ See the command `recentf-save-list'."
:group 'recentf
:type 'file)
(defcustom recentf-save-file-modes 384 ;; 0600
"Mode bits of recentf save file, as an integer, or nil.
If non-nil, after writing `recentf-save-file', set its mode bits to
this value. By default give R/W access only to the user who owns that
file. See also the function `set-file-modes'."
:group 'recentf
:type '(choice (const :tag "Don't change" nil)
integer))
(defcustom recentf-exclude nil
"*List of regexps and predicates for filenames excluded from the recent list.
When a filename matches any of the regexps or satisfies any of the
......@@ -257,7 +266,7 @@ It is passed a filename to give a chance to transform it.
If it returns nil, the filename is left unchanged."
:group 'recentf
:type '(choice (const :tag "None" nil)
(const abbreviate-file-name)
(const abbreviate-file-name)
function))
(defcustom recentf-show-file-shortcuts-flag t
......@@ -1206,6 +1215,8 @@ Write data into the file specified by `recentf-save-file'."
(format ";;; coding: %s\n" recentf-save-file-coding-system)
";;; End:\n")
(write-file (expand-file-name recentf-save-file))
(when recentf-save-file-modes
(set-file-modes recentf-save-file recentf-save-file-modes))
nil)
(error
(warn "recentf mode: %s" (error-message-string error)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment