Mercurial > emacs
comparison lisp/progmodes/scheme.el @ 46159:bd315b9fa3f0
Fix typo.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 03 Jul 2002 12:01:24 +0000 |
| parents | b174db545cfd |
| children | a3d1322abc88 |
comparison
equal
deleted
inserted
replaced
| 46158:61df14a62e39 | 46159:bd315b9fa3f0 |
|---|---|
| 428 (let ((normal-indent (current-column))) | 428 (let ((normal-indent (current-column))) |
| 429 (goto-char (1+ (elt state 1))) | 429 (goto-char (1+ (elt state 1))) |
| 430 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) | 430 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) |
| 431 (if (and (elt state 2) | 431 (if (and (elt state 2) |
| 432 (not (looking-at "\\sw\\|\\s_"))) | 432 (not (looking-at "\\sw\\|\\s_"))) |
| 433 ;; car of form doesn't seem to be a a symbol | 433 ;; car of form doesn't seem to be a symbol |
| 434 (progn | 434 (progn |
| 435 (if (not (> (save-excursion (forward-line 1) (point)) | 435 (if (not (> (save-excursion (forward-line 1) (point)) |
| 436 calculate-lisp-indent-last-sexp)) | 436 calculate-lisp-indent-last-sexp)) |
| 437 (progn (goto-char calculate-lisp-indent-last-sexp) | 437 (progn (goto-char calculate-lisp-indent-last-sexp) |
| 438 (beginning-of-line) | 438 (beginning-of-line) |