diff options
| author | Juanma Barranquero | 2013-08-04 02:58:32 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2013-08-04 02:58:32 +0200 |
| commit | 51d30f2c72ebe83f451928afba5665fad5cc9742 (patch) | |
| tree | aedd98df4ee8bca8ce7ee8ca0dbf057225a8b52a | |
| parent | 5414a28349ac68be10ef077a59933ce677fd785e (diff) | |
| download | emacs-51d30f2c72ebe83f451928afba5665fad5cc9742.tar.gz emacs-51d30f2c72ebe83f451928afba5665fad5cc9742.zip | |
lisp/frameset.el: Fix typos and autoload cookies.
(frameset-p, frameset-save): Fix autoload cookies.
(frameset-filter-minibuffer): Doc fix.
(frameset-restore): Fix autoload cookie. Fix typo in docstring.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/frameset.el | 10 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ae54e4d526e..15e0ad745b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2013-08-04 Juanma Barranquero <lekktu@gmail.com> | 1 | 2013-08-04 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 2 | ||
| 3 | * frameset.el (frameset-p, frameset-save): Fix autoload cookies. | ||
| 4 | (frameset-filter-minibuffer): Doc fix. | ||
| 5 | (frameset-restore): Fix autoload cookie. Fix typo in docstring. | ||
| 6 | |||
| 3 | * desktop.el (desktop-clear): Only delete frames when called | 7 | * desktop.el (desktop-clear): Only delete frames when called |
| 4 | interactively and desktop-restore-frames is non-nil. Doc fix. | 8 | interactively and desktop-restore-frames is non-nil. Doc fix. |
| 5 | (desktop-read): Set desktop-saved-frameset to nil. | 9 | (desktop-read): Set desktop-saved-frameset to nil. |
diff --git a/lisp/frameset.el b/lisp/frameset.el index 914ef5306cb..63ee9af23fc 100644 --- a/lisp/frameset.el +++ b/lisp/frameset.el | |||
| @@ -71,7 +71,7 @@ | |||
| 71 | This is a deep copy done with `copy-tree'." | 71 | This is a deep copy done with `copy-tree'." |
| 72 | (copy-tree frameset t)) | 72 | (copy-tree frameset t)) |
| 73 | 73 | ||
| 74 | ;;;autoload | 74 | ;;;###autoload |
| 75 | (defun frameset-p (frameset) | 75 | (defun frameset-p (frameset) |
| 76 | "If FRAMESET is a frameset, return its :version. | 76 | "If FRAMESET is a frameset, return its :version. |
| 77 | Else return nil." | 77 | Else return nil." |
| @@ -179,7 +179,7 @@ Useful as a filter function for tty-specific parameters." | |||
| 179 | (not (string-match-p "^unspecified-[fb]g$" (cdr current))))) | 179 | (not (string-match-p "^unspecified-[fb]g$" (cdr current))))) |
| 180 | 180 | ||
| 181 | (defun frameset-filter-minibuffer (current _filtered _parameters saving) | 181 | (defun frameset-filter-minibuffer (current _filtered _parameters saving) |
| 182 | "Convert (minibuffer . #<window>) parameter to (minibuffer . t)." | 182 | "When saving, convert (minibuffer . #<window>) parameter to (minibuffer . t)." |
| 183 | (or (not saving) | 183 | (or (not saving) |
| 184 | (if (windowp (cdr current)) | 184 | (if (windowp (cdr current)) |
| 185 | '(minibuffer . t) | 185 | '(minibuffer . t) |
| @@ -302,7 +302,7 @@ FRAME-LIST is a list of frames." | |||
| 302 | 'frameset--mini | 302 | 'frameset--mini |
| 303 | (cons nil id))))))) | 303 | (cons nil id))))))) |
| 304 | 304 | ||
| 305 | ;;;autoload | 305 | ;;;###autoload |
| 306 | (cl-defun frameset-save (frame-list &key filters predicate properties) | 306 | (cl-defun frameset-save (frame-list &key filters predicate properties) |
| 307 | "Return the frameset of FRAME-LIST, a list of frames. | 307 | "Return the frameset of FRAME-LIST, a list of frames. |
| 308 | If nil, FRAME-LIST defaults to all live frames. | 308 | If nil, FRAME-LIST defaults to all live frames. |
| @@ -547,11 +547,11 @@ Minibufferless frames must go first to avoid errors when attempting | |||
| 547 | to delete a frame whose minibuffer window is used by another frame." | 547 | to delete a frame whose minibuffer window is used by another frame." |
| 548 | (not (frame-parameter frame1 'minibuffer))) | 548 | (not (frame-parameter frame1 'minibuffer))) |
| 549 | 549 | ||
| 550 | ;;;autoload | 550 | ;;;###autoload |
| 551 | (cl-defun frameset-restore (frameset &key filters reuse-frames force-display force-onscreen) | 551 | (cl-defun frameset-restore (frameset &key filters reuse-frames force-display force-onscreen) |
| 552 | "Restore a FRAMESET into the current display(s). | 552 | "Restore a FRAMESET into the current display(s). |
| 553 | 553 | ||
| 554 | FILTERS is a list of parameter filters; defaults to `frameset-filter-alist'. | 554 | FILTERS is an alist of parameter filters; defaults to `frameset-filter-alist'. |
| 555 | 555 | ||
| 556 | REUSE-FRAMES describes how to reuse existing frames while restoring a frameset: | 556 | REUSE-FRAMES describes how to reuse existing frames while restoring a frameset: |
| 557 | t Reuse any existing frame if possible; delete leftover frames. | 557 | t Reuse any existing frame if possible; delete leftover frames. |