Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 59602:99bf07f49031

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(backward-kill-sexp, kill-sexp): Doc fixes.
author Richard M. Stallman <rms@gnu.org>
date Mon, 17 Jan 2005 23:48:10 +0000
parents 5188f5b11d56
children 60ab67d8cf3a 6d92d69fae33
comparison
equal deleted inserted replaced
59601:73b89f6377fc 59602:99bf07f49031
138 (while (/= arg 0) 138 (while (/= arg 0)
139 (goto-char (or (scan-lists (point) inc 1) (buffer-end arg))) 139 (goto-char (or (scan-lists (point) inc 1) (buffer-end arg)))
140 (setq arg (- arg inc))))) 140 (setq arg (- arg inc)))))
141 141
142 (defun kill-sexp (&optional arg) 142 (defun kill-sexp (&optional arg)
143 "Kill the sexp (balanced expression) following the cursor. 143 "Kill the sexp (balanced expression) following point.
144 With ARG, kill that many sexps after the cursor. 144 With ARG, kill that many sexps after point.
145 Negative arg -N means kill N sexps before the cursor." 145 Negative arg -N means kill N sexps before point."
146 (interactive "p") 146 (interactive "p")
147 (let ((opoint (point))) 147 (let ((opoint (point)))
148 (forward-sexp (or arg 1)) 148 (forward-sexp (or arg 1))
149 (kill-region opoint (point)))) 149 (kill-region opoint (point))))
150 150
151 (defun backward-kill-sexp (&optional arg) 151 (defun backward-kill-sexp (&optional arg)
152 "Kill the sexp (balanced expression) preceding the cursor. 152 "Kill the sexp (balanced expression) preceding point.
153 With ARG, kill that many sexps before the cursor. 153 With ARG, kill that many sexps before point.
154 Negative arg -N means kill N sexps after the cursor." 154 Negative arg -N means kill N sexps after point."
155 (interactive "p") 155 (interactive "p")
156 (kill-sexp (- (or arg 1)))) 156 (kill-sexp (- (or arg 1))))
157 157
158 ;; After Zmacs: 158 ;; After Zmacs:
159 (defun kill-backward-up-list (&optional arg) 159 (defun kill-backward-up-list (&optional arg)