Commit e59fa9ad authored by Juanma Barranquero's avatar Juanma Barranquero

lisp/desktop.el: Do not fail when desktop-files-not-to-save is nil.

parent d3cac061
2014-02-22 Juanma Barranquero <lekktu@gmail.com>
* desktop.el (desktop-save-buffer-p): Do not fail when
desktop-files-not-to-save is nil. Return t for true result
as the doc says.
2014-02-22 Daniel Colascione <dancol@dancol.org>
* net/secrets.el (secrets-create-item,secrets-search-items): Check
......
......@@ -878,23 +878,25 @@ FILENAME is the visited file name, BUFNAME is the buffer name, and
MODE is the major mode.
\n\(fn FILENAME BUFNAME MODE)"
(let ((case-fold-search nil)
dired-skip)
(and (not (and (stringp desktop-buffers-not-to-save)
(not filename)
(string-match-p desktop-buffers-not-to-save bufname)))
(not (memq mode desktop-modes-not-to-save))
;; FIXME this is broken if desktop-files-not-to-save is nil.
(or (and filename
(stringp desktop-files-not-to-save)
(not (string-match-p desktop-files-not-to-save filename)))
(and (memq mode '(dired-mode vc-dir-mode))
(with-current-buffer bufname
(not (setq dired-skip
(string-match-p desktop-files-not-to-save
default-directory)))))
(and (null filename)
(null dired-skip) ; bug#5755
(with-current-buffer bufname desktop-save-buffer))))))
(no-regexp-to-check (not (stringp desktop-files-not-to-save)))
dired-skip)
(and (or filename
(not (stringp desktop-buffers-not-to-save))
(not (string-match-p desktop-buffers-not-to-save bufname)))
(not (memq mode desktop-modes-not-to-save))
(or (and filename
(or no-regexp-to-check
(not (string-match-p desktop-files-not-to-save filename))))
(and (memq mode '(dired-mode vc-dir-mode))
(or no-regexp-to-check
(not (setq dired-skip
(with-current-buffer bufname
(string-match-p desktop-files-not-to-save
default-directory))))))
(and (null filename)
(null dired-skip) ; bug#5755
(with-current-buffer bufname desktop-save-buffer)))
t)))
;; ----------------------------------------------------------------------------
(defun desktop-file-name (filename dirname)
......
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