Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 46159:bd315b9fa3f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 03 Jul 2002 12:01:24 +0000
parents 1da0dfa86ab5
children df3f64f68cfe
comparison
equal deleted inserted replaced
46158:61df14a62e39 46159:bd315b9fa3f0
819 (let ((normal-indent (current-column))) 819 (let ((normal-indent (current-column)))
820 (goto-char (1+ (elt state 1))) 820 (goto-char (1+ (elt state 1)))
821 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) 821 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
822 (if (and (elt state 2) 822 (if (and (elt state 2)
823 (not (looking-at "\\sw\\|\\s_"))) 823 (not (looking-at "\\sw\\|\\s_")))
824 ;; car of form doesn't seem to be a a symbol 824 ;; car of form doesn't seem to be a symbol
825 (progn 825 (progn
826 (if (not (> (save-excursion (forward-line 1) (point)) 826 (if (not (> (save-excursion (forward-line 1) (point))
827 calculate-lisp-indent-last-sexp)) 827 calculate-lisp-indent-last-sexp))
828 (progn (goto-char calculate-lisp-indent-last-sexp) 828 (progn (goto-char calculate-lisp-indent-last-sexp)
829 (beginning-of-line) 829 (beginning-of-line)