aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-24 02:59:29 +0000
committerRichard M. Stallman1997-08-24 02:59:29 +0000
commit79fd9b2f5cf65f2d901419991c08aa74efa07571 (patch)
tree7b5e1fe28c2af888b966d8b7d69d33df94bd8bef
parent9847d4f87766bb84fb0bfcbf7932859d094ad061 (diff)
downloademacs-79fd9b2f5cf65f2d901419991c08aa74efa07571.tar.gz
emacs-79fd9b2f5cf65f2d901419991c08aa74efa07571.zip
Doc fixes.
-rw-r--r--lisp/winner.el34
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.")
88from 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. 91They are not included in any Winner mode list of buffers.
93 92
94By default `winner-skip-regexps' is set to \(\"^ \"\), 93By default `winner-skip-regexps' is set to \(\"^ \"\),
95which excludes \"invisible buffers\".") 94which 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.
239With arg start at position 1 if arg is positive, and 224With arg start at position 1 if arg is positive, and
240at -1 if arg is negative; else start at position 0. 225at -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