Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 629:a6c89d799f00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-07-15 08:18:59 by adrian] [PATCH] xemacs-21.5: typo fixes of of this this nature for lisp/ <8zhqhahu.fsf@ecf.teradyne.com>
author adrian
date Sun, 15 Jul 2001 08:18:59 +0000
parents 023b83f4e54b
children 943eaba38521
comparison
equal deleted inserted replaced
628:e545f3ec2337 629:a6c89d799f00
675 (let ((normal-indent (current-column))) 675 (let ((normal-indent (current-column)))
676 (goto-char (1+ (elt state 1))) 676 (goto-char (1+ (elt state 1)))
677 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) 677 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
678 (if (and (elt state 2) 678 (if (and (elt state 2)
679 (not (looking-at "\\sw\\|\\s_"))) 679 (not (looking-at "\\sw\\|\\s_")))
680 ;; car of form doesn't seem to be a a symbol 680 ;; car of form doesn't seem to be a symbol
681 (progn 681 (progn
682 (if (not (> (save-excursion (forward-line 1) (point)) 682 (if (not (> (save-excursion (forward-line 1) (point))
683 calculate-lisp-indent-last-sexp)) 683 calculate-lisp-indent-last-sexp))
684 (progn (goto-char calculate-lisp-indent-last-sexp) 684 (progn (goto-char calculate-lisp-indent-last-sexp)
685 (beginning-of-line) 685 (beginning-of-line)