Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
79fd9b2f
Commit
79fd9b2f
authored
Aug 24, 1997
by
Richard M. Stallman
Browse files
Doc fixes.
parent
9847d4f8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
28 deletions
+6
-28
lisp/winner.el
lisp/winner.el
+6
-28
No files found.
lisp/winner.el
View file @
79fd9b2f
...
...
@@ -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
'
(
"^ "
)
"
E
xclude buffers with names matching any of these regexps.
..from
any
\(
Winner mode
\)
list of buffers.
"
Winner e
xclude
s
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment