aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-07-19 09:54:05 +0000
committerJuanma Barranquero2005-07-19 09:54:05 +0000
commitcc8b76bf86384c17e058f646d907c29c4245a4b0 (patch)
tree9988428dd97454fdbb6c309bd72cfe7255caf96a
parent25fd144dac52d8eacb6305fd4b502d78526409b6 (diff)
downloademacs-cc8b76bf86384c17e058f646d907c29c4245a4b0.tar.gz
emacs-cc8b76bf86384c17e058f646d907c29c4245a4b0.zip
(desktop-enable, desktop-buffer-modes-to-save, (desktop-buffer-misc-functions,
desktop-buffer-handlers, desktop-load-default): Add release to obsolescence info. (desktop-globals-to-clear, desktop-buffer-mode-handlers, desktop-append-buffer-args, desktop-read): Fix typos in docstrings. (desktop-kill): Fix typo in message. (desktop-save): Doc fix.
-rw-r--r--lisp/ChangeLog25
-rw-r--r--lisp/desktop.el24
2 files changed, 30 insertions, 19 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 94892c13f58..e9b77fcb296 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,11 +1,22 @@
12005-07-19 Juanma Barranquero <lekktu@gmail.com>
2
3 * desktop.el (desktop-enable, desktop-buffer-modes-to-save)
4 (desktop-buffer-misc-functions, desktop-buffer-handlers)
5 (desktop-load-default): Add release to obsolescence info.
6 (desktop-globals-to-clear, desktop-buffer-mode-handlers)
7 (desktop-append-buffer-args, desktop-read):
8 Fix typos in docstrings.
9 (desktop-kill): Fix typo in message.
10 (desktop-save): Doc fix.
11
12005-07-19 Michael Kifer <kifer@cs.stonybrook.edu> 122005-07-19 Michael Kifer <kifer@cs.stonybrook.edu>
2 13
3 * viper-cmd.el (viper-escape-to-state): bug fix 14 * viper-cmd.el (viper-escape-to-state): Bug fix.
4 (viper-envelop-ESC-key): changed the definition of fast keysequence so 15 (viper-envelop-ESC-key): Change the definition of fast
5 it'll work with keyboard macros 16 keysequence so it'll work with keyboard macros.
6 17
7 * ediff.el (ediff-patch-buffer): changed the docstring. 18 * ediff.el (ediff-patch-buffer): Change the docstring.
8 19
92005-07-19 Kenichi Handa <handa@m17n.org> 202005-07-19 Kenichi Handa <handa@m17n.org>
10 21
11 * international/mule-cmds.el (select-safe-coding-system): Try to 22 * international/mule-cmds.el (select-safe-coding-system): Try to
diff --git a/lisp/desktop.el b/lisp/desktop.el
index ba6db913de1..2c50f2323b2 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -107,7 +107,7 @@ desktop is saved."
107 107
108;; Maintained for backward compatibility 108;; Maintained for backward compatibility
109(defvaralias 'desktop-enable 'desktop-save-mode) 109(defvaralias 'desktop-enable 'desktop-save-mode)
110(make-obsolete-variable 'desktop-enable 'desktop-save-mode) 110(make-obsolete-variable 'desktop-enable 'desktop-save-mode "22.1")
111 111
112(defcustom desktop-save 'ask-if-new 112(defcustom desktop-save 'ask-if-new
113 "*Specifies whether the desktop should be saved when it is killed. 113 "*Specifies whether the desktop should be saved when it is killed.
@@ -120,7 +120,7 @@ Possible values are:
120 if-exists -- save if desktop file exists, otherwise don't save. 120 if-exists -- save if desktop file exists, otherwise don't save.
121 nil -- never save. 121 nil -- never save.
122The desktop is never saved when `desktop-save-mode' is nil. 122The desktop is never saved when `desktop-save-mode' is nil.
123The variables `desktop-directory' and `desktop-base-file-name' 123The variables `desktop-dirname' and `desktop-base-file-name'
124determine where the desktop is saved." 124determine where the desktop is saved."
125 :type '(choice 125 :type '(choice
126 (const :tag "Always save" t) 126 (const :tag "Always save" t)
@@ -200,8 +200,8 @@ Feature: Saving `kill-ring' implies saving `kill-ring-yank-pointer'."
200 regexp-search-ring-yank-pointer) 200 regexp-search-ring-yank-pointer)
201 "List of global variables that `desktop-clear' will clear. 201 "List of global variables that `desktop-clear' will clear.
202An element may be variable name (a symbol) or a cons cell of the form 202An element may be variable name (a symbol) or a cons cell of the form
203\(VAR . FORM). Symbols are set to nil and for cons cells VAR is set 203\(VAR . FORM). Symbols are set to nil and for cons cells VAR is set
204to the value obtained by evaluateing FORM." 204to the value obtained by evaluating FORM."
205 :type '(repeat (restricted-sexp :match-alternatives (symbolp consp))) 205 :type '(repeat (restricted-sexp :match-alternatives (symbolp consp)))
206 :group 'desktop 206 :group 'desktop
207 :version "22.1") 207 :version "22.1")
@@ -305,9 +305,9 @@ to restore the buffer, the auxiliary information is passed as the argument
305DESKTOP-BUFFER-MISC.") 305DESKTOP-BUFFER-MISC.")
306(make-variable-buffer-local 'desktop-save-buffer) 306(make-variable-buffer-local 'desktop-save-buffer)
307(make-obsolete-variable 'desktop-buffer-modes-to-save 307(make-obsolete-variable 'desktop-buffer-modes-to-save
308 'desktop-save-buffer) 308 'desktop-save-buffer "22.1")
309(make-obsolete-variable 'desktop-buffer-misc-functions 309(make-obsolete-variable 'desktop-buffer-misc-functions
310 'desktop-save-buffer) 310 'desktop-save-buffer "22.1")
311 311
312(defcustom desktop-buffer-mode-handlers 312(defcustom desktop-buffer-mode-handlers
313 '((dired-mode . dired-restore-desktop-buffer) 313 '((dired-mode . dired-restore-desktop-buffer)
@@ -315,7 +315,7 @@ DESKTOP-BUFFER-MISC.")
315 (mh-folder-mode . mh-restore-desktop-buffer) 315 (mh-folder-mode . mh-restore-desktop-buffer)
316 (Info-mode . Info-restore-desktop-buffer)) 316 (Info-mode . Info-restore-desktop-buffer))
317 "Alist of major mode specific functions to restore a desktop buffer. 317 "Alist of major mode specific functions to restore a desktop buffer.
318Functions are called by `desktop-read'. List elements must have the form 318Functions are called by `desktop-read'. List elements must have the form
319\(MAJOR-MODE . RESTORE-BUFFER-FUNCTION). 319\(MAJOR-MODE . RESTORE-BUFFER-FUNCTION).
320 320
321Buffers with a major mode not specified here, are restored by the default 321Buffers with a major mode not specified here, are restored by the default
@@ -342,7 +342,7 @@ and variable values for that buffer are copied into it."
342 342
343(put 'desktop-buffer-mode-handlers 'risky-local-variable t) 343(put 'desktop-buffer-mode-handlers 'risky-local-variable t)
344(make-obsolete-variable 'desktop-buffer-handlers 344(make-obsolete-variable 'desktop-buffer-handlers
345 'desktop-buffer-mode-handlers) 345 'desktop-buffer-mode-handlers "22.1")
346 346
347(defcustom desktop-minor-mode-table 347(defcustom desktop-minor-mode-table
348 '((auto-fill-function auto-fill-mode) 348 '((auto-fill-function auto-fill-mode)
@@ -432,7 +432,7 @@ is nil, ask the user where to save the desktop."
432 (condition-case err 432 (condition-case err
433 (desktop-save desktop-dirname) 433 (desktop-save desktop-dirname)
434 (file-error 434 (file-error
435 (unless (yes-or-no-p "Error while saving the desktop. Ignore? ") 435 (unless (yes-or-no-p "Error while saving the desktop. Ignore? ")
436 (signal (car err) (cdr err))))))) 436 (signal (car err) (cdr err)))))))
437 437
438;; ---------------------------------------------------------------------------- 438;; ----------------------------------------------------------------------------
@@ -711,7 +711,7 @@ This function also sets `desktop-dirname' to nil."
711 "Read and process the desktop file in directory DIRNAME. 711 "Read and process the desktop file in directory DIRNAME.
712Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in 712Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in
713directories listed in `desktop-path'. If a desktop file is found, it 713directories listed in `desktop-path'. If a desktop file is found, it
714is processed and `desktop-after-read-hook' is run. If no desktop file 714is processed and `desktop-after-read-hook' is run. If no desktop file
715is found, clear the desktop and run `desktop-no-desktop-file-hook'. 715is found, clear the desktop and run `desktop-no-desktop-file-hook'.
716This function is a no-op when Emacs is running in batch mode. 716This function is a no-op when Emacs is running in batch mode.
717It returns t if a desktop file was loaded, nil otherwise." 717It returns t if a desktop file was loaded, nil otherwise."
@@ -781,7 +781,7 @@ Also inhibit further loading of it."
781 (progn 781 (progn
782 (load "default" t t) 782 (load "default" t t)
783 (setq inhibit-default-init t)))) 783 (setq inhibit-default-init t))))
784(make-obsolete 'desktop-load-default 'desktop-save-mode) 784(make-obsolete 'desktop-load-default 'desktop-save-mode "22.1")
785 785
786;; ---------------------------------------------------------------------------- 786;; ----------------------------------------------------------------------------
787;;;###autoload 787;;;###autoload
@@ -958,7 +958,7 @@ directory DIRNAME."
958 (cons 'overwrite-mode (car mim))))) 958 (cons 'overwrite-mode (car mim)))))
959 959
960(defun desktop-append-buffer-args (&rest args) 960(defun desktop-append-buffer-args (&rest args)
961 "Append ARGS at end of `desktop-buffer-args-list' 961 "Append ARGS at end of `desktop-buffer-args-list'.
962ARGS must be an argument list for `desktop-create-buffer'." 962ARGS must be an argument list for `desktop-create-buffer'."
963 (setq desktop-buffer-args-list (nconc desktop-buffer-args-list (list args))) 963 (setq desktop-buffer-args-list (nconc desktop-buffer-args-list (list args)))
964 (unless desktop-lazy-timer 964 (unless desktop-lazy-timer