/[emacs]/emacs/lisp/desktop.el
ViewVC logotype

Diff of /emacs/lisp/desktop.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.86 by lektu, Tue Jul 19 09:52:55 2005 UTC revision 1.87 by lektu, Tue Jul 19 23:41:06 2005 UTC
# Line 106  desktop is saved." Line 106  desktop is saved."
106    :group 'desktop)    :group 'desktop)
107    
108  ;; Maintained for backward compatibility  ;; Maintained for backward compatibility
109  (defvaralias 'desktop-enable 'desktop-save-mode)  (define-obsolete-variable-alias 'desktop-enable 'desktop-save-mode "22.1")
 (make-obsolete-variable 'desktop-enable 'desktop-save-mode "22.1")  
110    
111  (defcustom desktop-save 'ask-if-new  (defcustom desktop-save 'ask-if-new
112    "*Specifies whether the desktop should be saved when it is killed.    "*Specifies whether the desktop should be saved when it is killed.
# Line 137  determine where the desktop is saved." Line 136  determine where the desktop is saved."
136    "Name of file for Emacs desktop, excluding the directory part."    "Name of file for Emacs desktop, excluding the directory part."
137    :type 'file    :type 'file
138    :group 'desktop)    :group 'desktop)
139  (defvaralias 'desktop-basefilename 'desktop-base-file-name)  (define-obsolete-variable-alias 'desktop-basefilename 'desktop-base-file-name "22.1")
140    
141  (defcustom desktop-path '("." "~")  (defcustom desktop-path '("." "~")
142    "List of directories to search for the desktop file.    "List of directories to search for the desktop file.
# Line 399  variables listed in `desktop-globals-to- Line 398  variables listed in `desktop-globals-to-
398             (string-match desktop-clear-preserve-buffers-regexp bufname)             (string-match desktop-clear-preserve-buffers-regexp bufname)
399             (member bufname desktop-clear-preserve-buffers)             (member bufname desktop-clear-preserve-buffers)
400             ;; Don't kill buffers made for internal purposes.             ;; Don't kill buffers made for internal purposes.
401             (and (not (equal bufname "")) (eq (aref bufname 0) ?\ ))             (and (not (equal bufname "")) (eq (aref bufname 0) ?\s))
402             (kill-buffer (car buffers))))             (kill-buffer (car buffers))))
403        (setq buffers (cdr buffers))))        (setq buffers (cdr buffers))))
404    (delete-other-windows))    (delete-other-windows))
# Line 454  TXT is a string that when read and evalu Line 453  TXT is a string that when read and evalu
453  QUOTE may be `may' (value may be quoted),  QUOTE may be `may' (value may be quoted),
454  `must' (values must be quoted), or nil (value may not be quoted)."  `must' (values must be quoted), or nil (value may not be quoted)."
455    (cond    (cond
456     ((or (numberp value) (null value) (eq t value))     ((or (numberp value) (null value) (eq t value) (keywordp value))
457      (cons 'may (prin1-to-string value)))      (cons 'may (prin1-to-string value)))
458     ((stringp value)     ((stringp value)
459      (let ((copy (copy-sequence value)))      (let ((copy (copy-sequence value)))

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26