Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 133:2f5b3f50773d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Dec 1990 03:02:52 +0000
parents 7cfabf2a8964
children 8b1123702915
comparison
equal deleted inserted replaced
132:0cbdae7c532f 133:2f5b3f50773d
185 185
186 (defun insert-parentheses (arg) 186 (defun insert-parentheses (arg)
187 "Put parentheses around next ARG sexps. Leave point after open-paren. 187 "Put parentheses around next ARG sexps. Leave point after open-paren.
188 No argument is equivalent to zero: just insert () and leave point between." 188 No argument is equivalent to zero: just insert () and leave point between."
189 (interactive "P") 189 (interactive "P")
190 (if arg (skip-chars-forward " \t")) 190 (if arg (setq arg (prefix-numeric-value arg))
191 (setq arg 0))
192 (or (eq arg 0) (skip-chars-forward " \t"))
191 (and (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) 193 (and (memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))
192 (insert " ")) 194 (insert " "))
193 ; (or (memq (char-syntax (preceding-char)) '(?\ ?> ?\( ))
194 ; (insert " ")))
195 (insert ?\() 195 (insert ?\()
196 (save-excursion 196 (save-excursion
197 (if arg 197 (or (eq arg 0) (forward-sexp arg))
198 (forward-sexp (prefix-numeric-value arg)))
199 (insert ?\)) 198 (insert ?\))
200 ; (or (memq (char-syntax (following-char)) '(?\ ?> ?\( )) 199 (and (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
201 ; (insert " ")) 200 (insert " "))))
202 (and (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
203 (insert " "))
204 ))
205 201
206 (defun move-past-close-and-reindent () 202 (defun move-past-close-and-reindent ()
207 "Move past next `)', delete indentation before it, then indent after it." 203 "Move past next `)', delete indentation before it, then indent after it."
208 (interactive) 204 (interactive)
209 (up-list 1) 205 (up-list 1)