diff options
| author | Richard M. Stallman | 1997-08-24 02:59:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-24 02:59:29 +0000 |
| commit | 79fd9b2f5cf65f2d901419991c08aa74efa07571 (patch) | |
| tree | 7b5e1fe28c2af888b966d8b7d69d33df94bd8bef | |
| parent | 9847d4f87766bb84fb0bfcbf7932859d094ad061 (diff) | |
| download | emacs-79fd9b2f5cf65f2d901419991c08aa74efa07571.tar.gz emacs-79fd9b2f5cf65f2d901419991c08aa74efa07571.zip | |
Doc fixes.
| -rw-r--r-- | lisp/winner.el | 34 |
1 files changed, 6 insertions, 28 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index dfc93a2a707..ff09b3a3fc9 100644 --- a/lisp/winner.el +++ b/lisp/winner.el | |||
| @@ -84,12 +84,11 @@ In the default case (CTRL-SPACE) the mark will be set.") | |||
| 84 | ".newsrc-dribble", | 84 | ".newsrc-dribble", |
| 85 | "*Completions*", | 85 | "*Completions*", |
| 86 | "*Buffer list*") | 86 | "*Buffer list*") |
| 87 | "Exclude these buffer names | 87 | "Exclude these buffer names from any \(Winner mode\) list of buffers.") |
| 88 | from any \(Winner mode\) list of buffers.") | ||
| 89 | 88 | ||
| 90 | (defvar winner-skip-regexps '("^ ") | 89 | (defvar winner-skip-regexps '("^ ") |
| 91 | "Exclude buffers with names matching any of these regexps. | 90 | "Winner excludes buffers with names matching any of these regexps. |
| 92 | ..from any \(Winner mode\) list of buffers. | 91 | They are not included in any Winner mode list of buffers. |
| 93 | 92 | ||
| 94 | By default `winner-skip-regexps' is set to \(\"^ \"\), | 93 | By default `winner-skip-regexps' is set to \(\"^ \"\), |
| 95 | which excludes \"invisible buffers\".") | 94 | which excludes \"invisible buffers\".") |
| @@ -192,9 +191,6 @@ With arg, turn Winner mode on if and only if arg is positive." | |||
| 192 | winner-stacks) | 191 | winner-stacks) |
| 193 | (list config)))))) | 192 | (list config)))))) |
| 194 | 193 | ||
| 195 | |||
| 196 | |||
| 197 | |||
| 198 | ;; Push this window configuration on the right stack, | 194 | ;; Push this window configuration on the right stack, |
| 199 | ;; but make sure the stack doesn't get too large etc... | 195 | ;; but make sure the stack doesn't get too large etc... |
| 200 | (defun winner-push (config frame) | 196 | (defun winner-push (config frame) |
| @@ -208,17 +204,9 @@ With arg, turn Winner mode on if and only if arg is positive." | |||
| 208 | (setf (winner-stack-place this) | 204 | (setf (winner-stack-place this) |
| 209 | (winner-stack-data this)) | 205 | (winner-stack-data this)) |
| 210 | (setf (winner-stack-count this) 1))))) | 206 | (setf (winner-stack-count this) 1))))) |
| 211 | 207 | ||
| 212 | |||
| 213 | |||
| 214 | |||
| 215 | |||
| 216 | |||
| 217 | |||
| 218 | |||
| 219 | ;;;; Selecting a window configuration | 208 | ;;;; Selecting a window configuration |
| 220 | 209 | ||
| 221 | |||
| 222 | ;; Return list of names of other buffers, excluding the current buffer | 210 | ;; Return list of names of other buffers, excluding the current buffer |
| 223 | ;; and buffers specified by the user. | 211 | ;; and buffers specified by the user. |
| 224 | (defun winner-other-buffers () | 212 | (defun winner-other-buffers () |
| @@ -231,10 +219,7 @@ With arg, turn Winner mode on if and only if arg is positive." | |||
| 231 | finally return nil)) | 219 | finally return nil)) |
| 232 | collect name)) | 220 | collect name)) |
| 233 | 221 | ||
| 234 | |||
| 235 | |||
| 236 | (defun winner-select (&optional arg) | 222 | (defun winner-select (&optional arg) |
| 237 | |||
| 238 | "Change to previous or new window configuration. | 223 | "Change to previous or new window configuration. |
| 239 | With arg start at position 1 if arg is positive, and | 224 | With arg start at position 1 if arg is positive, and |
| 240 | at -1 if arg is negative; else start at position 0. | 225 | at -1 if arg is negative; else start at position 0. |
| @@ -249,7 +234,7 @@ Winner mode must be turned on.\)" | |||
| 249 | ((< (prefix-numeric-value arg) 0) winner-prev-event) | 234 | ((< (prefix-numeric-value arg) 0) winner-prev-event) |
| 250 | (t nil))) | 235 | (t nil))) |
| 251 | (if arg (push arg unread-command-events)) | 236 | (if arg (push arg unread-command-events)) |
| 252 | 237 | ||
| 253 | (let ((stack (winner-stack (selected-frame))) | 238 | (let ((stack (winner-stack (selected-frame))) |
| 254 | (store nil) | 239 | (store nil) |
| 255 | (buffers (winner-other-buffers)) | 240 | (buffers (winner-other-buffers)) |
| @@ -309,10 +294,6 @@ Winner mode must be turned on.\)" | |||
| 309 | ;; Else update the buffer list and make sure that the displayed | 294 | ;; Else update the buffer list and make sure that the displayed |
| 310 | ;; buffer is the same as the current buffer. | 295 | ;; buffer is the same as the current buffer. |
| 311 | (switch-to-buffer (window-buffer))))) | 296 | (switch-to-buffer (window-buffer))))) |
| 312 | |||
| 313 | |||
| 314 | |||
| 315 | |||
| 316 | 297 | ||
| 317 | (defun winner-previous () | 298 | (defun winner-previous () |
| 318 | "Change to previous window configuration." | 299 | "Change to previous window configuration." |
| @@ -323,10 +304,7 @@ Winner mode must be turned on.\)" | |||
| 323 | "Change to new window configuration." | 304 | "Change to new window configuration." |
| 324 | (interactive) | 305 | (interactive) |
| 325 | (winner-select 1)) | 306 | (winner-select 1)) |
| 326 | 307 | ||
| 327 | |||
| 328 | |||
| 329 | |||
| 330 | ;;;; To be evaluated when the package is loaded: | 308 | ;;;; To be evaluated when the package is loaded: |
| 331 | 309 | ||
| 332 | (unless winner-mode-map | 310 | (unless winner-mode-map |