Mercurial > emacs

comparison lisp/subr.el @ 779:c2dbf1fe0506

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 15 Jul 1992 03:24:58 +0000
parents e4253da532fb
children 3cece0106722
comparison
equal deleted inserted replaced
778:cd00bdacc17b 779:c2dbf1fe0506
26 (if (and nomini (eq base-window (minibuffer-window))) 26 (if (and nomini (eq base-window (minibuffer-window)))
27 (setq base-window (next-window base-window))) 27 (setq base-window (next-window base-window)))
28 (eq base-window 28 (eq base-window
29 (next-window base-window (if nomini 'arg))))) 29 (next-window base-window (if nomini 'arg)))))
30 30
31 (defun walk-windows (proc &optional minibuf all-screens) 31 (defun walk-windows (proc &optional minibuf all-frames)
32 "Cycle through all visible windows, calling PROC for each one. 32 "Cycle through all visible windows, calling PROC for each one.
33 PROC is called with a window as argument. 33 PROC is called with a window as argument.
34 Optional second arg MINIBUF t means count the minibuffer window 34 Optional second arg MINIBUF t means count the minibuffer window
35 even if not active. If MINIBUF is neither t nor nil it means 35 even if not active. If MINIBUF is neither t nor nil it means
36 not to count the minibuffer even if it is active. 36 not to count the minibuffer even if it is active.
37 Optional third arg ALL-SCREENS t means include all windows in all screens; 37 Optional third arg ALL-FRAMES t means include all windows in all frames;
38 otherwise cycle within the selected screen." 38 otherwise cycle within the selected frame."
39 (let* ((walk-windows-start (selected-window)) 39 (let* ((walk-windows-start (selected-window))
40 (walk-windows-current walk-windows-start)) 40 (walk-windows-current walk-windows-start))
41 (while (progn 41 (while (progn
42 (setq walk-windows-current 42 (setq walk-windows-current
43 (next-window walk-windows-current minibuf all-screens)) 43 (next-window walk-windows-current minibuf all-frames))
44 (funcall proc walk-windows-current) 44 (funcall proc walk-windows-current)
45 (not (eq walk-windows-current walk-windows-start)))))) 45 (not (eq walk-windows-current walk-windows-start))))))
46 46
47 (defun read-quoted-char (&optional prompt) 47 (defun read-quoted-char (&optional prompt)
48 "Like `read-char', except that if the first character read is an octal 48 "Like `read-char', except that if the first character read is an octal
203 "Keymap for subcommands of C-x 4") 203 "Keymap for subcommands of C-x 4")
204 (fset 'ctl-x-4-prefix ctl-x-4-map) 204 (fset 'ctl-x-4-prefix ctl-x-4-map)
205 (define-key ctl-x-map "4" 'ctl-x-4-prefix) 205 (define-key ctl-x-map "4" 'ctl-x-4-prefix)
206 206
207 (defvar ctl-x-5-map (make-sparse-keymap) 207 (defvar ctl-x-5-map (make-sparse-keymap)
208 "Keymap for screen commands.") 208 "Keymap for frame commands.")
209 (fset 'ctl-x-5-prefix ctl-x-5-map) 209 (fset 'ctl-x-5-prefix ctl-x-5-map)
210 (define-key ctl-x-map "5" 'ctl-x-5-prefix) 210 (define-key ctl-x-map "5" 'ctl-x-5-prefix)
211 211
212 212
213 (defun run-hooks (&rest hooklist) 213 (defun run-hooks (&rest hooklist)