diff options
| author | Juanma Barranquero | 2005-07-19 09:54:05 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-19 09:54:05 +0000 |
| commit | cc8b76bf86384c17e058f646d907c29c4245a4b0 (patch) | |
| tree | 9988428dd97454fdbb6c309bd72cfe7255caf96a | |
| parent | 25fd144dac52d8eacb6305fd4b502d78526409b6 (diff) | |
| download | emacs-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/ChangeLog | 25 | ||||
| -rw-r--r-- | lisp/desktop.el | 24 |
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 @@ | |||
| 1 | 2005-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 | |||
| 1 | 2005-07-19 Michael Kifer <kifer@cs.stonybrook.edu> | 12 | 2005-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 | ||
| 9 | 2005-07-19 Kenichi Handa <handa@m17n.org> | 20 | 2005-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. |
| 122 | The desktop is never saved when `desktop-save-mode' is nil. | 122 | The desktop is never saved when `desktop-save-mode' is nil. |
| 123 | The variables `desktop-directory' and `desktop-base-file-name' | 123 | The variables `desktop-dirname' and `desktop-base-file-name' |
| 124 | determine where the desktop is saved." | 124 | determine 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. |
| 202 | An element may be variable name (a symbol) or a cons cell of the form | 202 | An 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 |
| 204 | to the value obtained by evaluateing FORM." | 204 | to 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 | |||
| 305 | DESKTOP-BUFFER-MISC.") | 305 | DESKTOP-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. |
| 318 | Functions are called by `desktop-read'. List elements must have the form | 318 | Functions 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 | ||
| 321 | Buffers with a major mode not specified here, are restored by the default | 321 | Buffers 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. |
| 712 | Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in | 712 | Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in |
| 713 | directories listed in `desktop-path'. If a desktop file is found, it | 713 | directories listed in `desktop-path'. If a desktop file is found, it |
| 714 | is processed and `desktop-after-read-hook' is run. If no desktop file | 714 | is processed and `desktop-after-read-hook' is run. If no desktop file |
| 715 | is found, clear the desktop and run `desktop-no-desktop-file-hook'. | 715 | is found, clear the desktop and run `desktop-no-desktop-file-hook'. |
| 716 | This function is a no-op when Emacs is running in batch mode. | 716 | This function is a no-op when Emacs is running in batch mode. |
| 717 | It returns t if a desktop file was loaded, nil otherwise." | 717 | It 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'. |
| 962 | ARGS must be an argument list for `desktop-create-buffer'." | 962 | ARGS 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 |