Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 32456:ec203cfd2e41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(down-list, backward-up-list, up-list): Doc fix.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 13 Oct 2000 11:45:46 +0000
parents d481da7b59b0
children 0d7e64a107e6
comparison
equal deleted inserted replaced
32455:ca5f74834e1a 32456:ec203cfd2e41
95 (forward-list (- arg))) 95 (forward-list (- arg)))
96 96
97 (defun down-list (&optional arg) 97 (defun down-list (&optional arg)
98 "Move forward down one level of parentheses. 98 "Move forward down one level of parentheses.
99 With ARG, do this that many times. 99 With ARG, do this that many times.
100 A negative argument means move backward but still go down a level. 100 A negative argument means move backward but still go down a level."
101 In Lisp programs, an argument is required."
102 (interactive "p") 101 (interactive "p")
103 (or arg (setq arg 1)) 102 (or arg (setq arg 1))
104 (let ((inc (if (> arg 0) 1 -1))) 103 (let ((inc (if (> arg 0) 1 -1)))
105 (while (/= arg 0) 104 (while (/= arg 0)
106 (goto-char (or (scan-lists (point) inc -1) (buffer-end arg))) 105 (goto-char (or (scan-lists (point) inc -1) (buffer-end arg)))
107 (setq arg (- arg inc))))) 106 (setq arg (- arg inc)))))
108 107
109 (defun backward-up-list (&optional arg) 108 (defun backward-up-list (&optional arg)
110 "Move backward out of one level of parentheses. 109 "Move backward out of one level of parentheses.
111 With ARG, do this that many times. 110 With ARG, do this that many times.
112 A negative argument means move forward but still to a less deep spot. 111 A negative argument means move forward but still to a less deep spot."
113 In Lisp programs, an argument is required."
114 (interactive "p") 112 (interactive "p")
115 (up-list (- (or arg 1)))) 113 (up-list (- (or arg 1))))
116 114
117 (defun up-list (&optional arg) 115 (defun up-list (&optional arg)
118 "Move forward out of one level of parentheses. 116 "Move forward out of one level of parentheses.
119 With ARG, do this that many times. 117 With ARG, do this that many times.
120 A negative argument means move backward but still to a less deep spot. 118 A negative argument means move backward but still to a less deep spot."
121 In Lisp programs, an argument is required."
122 (interactive "p") 119 (interactive "p")
123 (or arg (setq arg 1)) 120 (or arg (setq arg 1))
124 (let ((inc (if (> arg 0) 1 -1))) 121 (let ((inc (if (> arg 0) 1 -1)))
125 (while (/= arg 0) 122 (while (/= arg 0)
126 (goto-char (or (scan-lists (point) inc 1) (buffer-end arg))) 123 (goto-char (or (scan-lists (point) inc 1) (buffer-end arg)))