Mercurial > hg > xemacs-beta

comparison lisp/lisp.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children c136144fe765
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
204 (if (and first 204 (if (and first
205 (progn 205 (progn
206 (end-of-line 1) 206 (end-of-line 1)
207 (beginning-of-defun-raw 1))) 207 (beginning-of-defun-raw 1)))
208 nil 208 nil
209 (or (bobp) (forward-char -1)) 209 (or (bobp) (backward-char 1))
210 (beginning-of-defun-raw -1)) 210 (beginning-of-defun-raw -1))
211 (setq first nil) 211 (setq first nil)
212 (forward-list 1) 212 (forward-list 1)
213 (skip-chars-forward " \t") 213 (skip-chars-forward " \t")
214 (if (looking-at "\\s<\\|\n") 214 (if (looking-at "\\s<\\|\n")
277 277
278 (defun move-past-close-and-reindent () 278 (defun move-past-close-and-reindent ()
279 "Move past next `)', delete indentation before it, then indent after it." 279 "Move past next `)', delete indentation before it, then indent after it."
280 (interactive) 280 (interactive)
281 (up-list 1) 281 (up-list 1)
282 (forward-char -1) 282 (backward-char 1)
283 (while (save-excursion ; this is my contribution 283 (while (save-excursion ; this is my contribution
284 (let ((before-paren (point))) 284 (let ((before-paren (point)))
285 (back-to-indentation) 285 (back-to-indentation)
286 (= (point) before-paren))) 286 (= (point) before-paren)))
287 (delete-indentation)) 287 (delete-indentation))