Commit 3f32d6a3 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(desktop-enable, desktop-basefilename): Declare with

`define-obsolete-variable-alias'.
(desktop-internal-v2s): Don't quote keywords.
(desktop-clear): "?\ " -> "?\s".
parent 41bfd17e
2005-07-20 Juanma Barranquero <lekktu@gmail.com>
* desktop.el (desktop-enable, desktop-basefilename):
Declare with `define-obsolete-variable-alias'.
(desktop-internal-v2s): Don't quote keywords.
(desktop-clear): "?\ " -> "?\s".
* textmodes/org.el (org-table-formula-substitute-names)
(org-table-get-vertical-vector): Doc fixes.
(org-table-recalculate): Remove unused argument to `message'.
2005-07-19 Carsten Dominik <dominik@science.uva.nl> 2005-07-19 Carsten Dominik <dominik@science.uva.nl>
* textmodes/org.el: (org-table-column-names, * textmodes/org.el (org-table-column-names)
org-table-column-name-regexp) (org-table-column-name-regexp)
(org-table-named-field-locations): New variables. (org-table-named-field-locations): New variables.
(org-archive-subtree): Protect `this-command' when calling (org-archive-subtree): Protect `this-command' when calling
`org-copy-subtree' and `org-cut-subtree', to avoid appending to `org-copy-subtree' and `org-cut-subtree', to avoid appending to
the kill buffer. the kill buffer.
(org-complete): Removed fixed-formula completion. (org-complete): Remove fixed-formula completion.
(org-edit-formulas-map): New variable. (org-edit-formulas-map): New variable.
(org-table-edit-formulas): New command. (org-table-edit-formulas): New command.
(org-finish-edit-formulas, org-abort-edit-formulas, (org-finish-edit-formulas, org-abort-edit-formulas)
org-show-variable, org-table-get-vertical-vector): New functions. (org-show-variable, org-table-get-vertical-vector): New functions.
(org-table-maybe-eval-formula): Handle `:=' fields. (org-table-maybe-eval-formula): Handle `:=' fields.
(org-table-get-stored-formulas, org-table-store-formulas) (org-table-get-stored-formulas, org-table-store-formulas)
(org-table-get-formula, org-table-modify-formulas) (org-table-get-formula, org-table-modify-formulas)
......
...@@ -106,8 +106,7 @@ desktop is saved." ...@@ -106,8 +106,7 @@ desktop is saved."
:group 'desktop) :group 'desktop)
;; Maintained for backward compatibility ;; Maintained for backward compatibility
(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")
(defcustom desktop-save 'ask-if-new (defcustom desktop-save 'ask-if-new
"*Specifies whether the desktop should be saved when it is killed. "*Specifies whether the desktop should be saved when it is killed.
...@@ -137,7 +136,7 @@ determine where the desktop is saved." ...@@ -137,7 +136,7 @@ determine where the desktop is saved."
"Name of file for Emacs desktop, excluding the directory part." "Name of file for Emacs desktop, excluding the directory part."
:type 'file :type 'file
:group 'desktop) :group 'desktop)
(defvaralias 'desktop-basefilename 'desktop-base-file-name) (define-obsolete-variable-alias 'desktop-basefilename 'desktop-base-file-name "22.1")
(defcustom desktop-path '("." "~") (defcustom desktop-path '("." "~")
"List of directories to search for the desktop file. "List of directories to search for the desktop file.
...@@ -399,7 +398,7 @@ variables listed in `desktop-globals-to-clear'." ...@@ -399,7 +398,7 @@ variables listed in `desktop-globals-to-clear'."
(string-match desktop-clear-preserve-buffers-regexp bufname) (string-match desktop-clear-preserve-buffers-regexp bufname)
(member bufname desktop-clear-preserve-buffers) (member bufname desktop-clear-preserve-buffers)
;; Don't kill buffers made for internal purposes. ;; Don't kill buffers made for internal purposes.
(and (not (equal bufname "")) (eq (aref bufname 0) ?\ )) (and (not (equal bufname "")) (eq (aref bufname 0) ?\s))
(kill-buffer (car buffers)))) (kill-buffer (car buffers))))
(setq buffers (cdr buffers)))) (setq buffers (cdr buffers))))
(delete-other-windows)) (delete-other-windows))
...@@ -454,7 +453,7 @@ TXT is a string that when read and evaluated yields value. ...@@ -454,7 +453,7 @@ TXT is a string that when read and evaluated yields value.
QUOTE may be `may' (value may be quoted), QUOTE may be `may' (value may be quoted),
`must' (values must be quoted), or nil (value may not be quoted)." `must' (values must be quoted), or nil (value may not be quoted)."
(cond (cond
((or (numberp value) (null value) (eq t value)) ((or (numberp value) (null value) (eq t value) (keywordp value))
(cons 'may (prin1-to-string value))) (cons 'may (prin1-to-string value)))
((stringp value) ((stringp value)
(let ((copy (copy-sequence value))) (let ((copy (copy-sequence value)))
......
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