martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Doc fixes.

Browse Source
This commit is contained in:
Richard M. Stallman
1997-08-24 02:59:29 +00:00
parent 9847d4f877
commit 79fd9b2f5c
1 changed files with 6 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/winner.el
View File

@@ -84,12 +84,11 @@ In the default case (CTRL-SPACE) the mark will be set.")
".newsrc-dribble",
"*Completions*",
"*Buffer list*")
"Exclude these buffer names
from any \(Winner mode\) list of buffers.")
"Exclude these buffer names from any \(Winner mode\) list of buffers.")
(defvar winner-skip-regexps '("^ ")
"Exclude buffers with names matching any of these regexps.
..from any \(Winner mode\) list of buffers.
"Winner excludes buffers with names matching any of these regexps.
They are not included in any Winner mode list of buffers.
By default `winner-skip-regexps' is set to \(\"^ \"\),
which excludes \"invisible buffers\".")
@@ -192,9 +191,6 @@ With arg, turn Winner mode on if and only if arg is positive."
winner-stacks)
(list config))))))
;; Push this window configuration on the right stack,
;; but make sure the stack doesn't get too large etc...
(defun winner-push (config frame)
@@ -208,17 +204,9 @@ With arg, turn Winner mode on if and only if arg is positive."
(setf (winner-stack-place this)
(winner-stack-data this))
(setf (winner-stack-count this) 1)))))
;;;; Selecting a window configuration
;; Return list of names of other buffers, excluding the current buffer
;; and buffers specified by the user.
(defun winner-other-buffers ()
@@ -231,10 +219,7 @@ With arg, turn Winner mode on if and only if arg is positive."
finally return nil))
collect name))
(defun winner-select (&optional arg)
"Change to previous or new window configuration.
With arg start at position 1 if arg is positive, and
at -1 if arg is negative; else start at position 0.
@@ -249,7 +234,7 @@ Winner mode must be turned on.\)"
((< (prefix-numeric-value arg) 0) winner-prev-event)
(t nil)))
(if arg (push arg unread-command-events))
(let ((stack (winner-stack (selected-frame)))
(store nil)
(buffers (winner-other-buffers))
@@ -309,10 +294,6 @@ Winner mode must be turned on.\)"
;; Else update the buffer list and make sure that the displayed
;; buffer is the same as the current buffer.
(switch-to-buffer (window-buffer)))))
(defun winner-previous ()
"Change to previous window configuration."
@@ -323,10 +304,7 @@ Winner mode must be turned on.\)"
"Change to new window configuration."
(interactive)
(winner-select 1))
;;;; To be evaluated when the package is loaded:
(unless winner-mode-map