Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 3591:507f64624555
Apply typo patches from Paul Eggert.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 09 Jun 1993 11:59:12 +0000 |
parents | 6c9b5f6dca70 |
children | 45169f86d3a4 |
comparison
equal
deleted
inserted
replaced
3590:d5f22061277d | 3591:507f64624555 |
---|---|
369 (goto-char last-sexp) | 369 (goto-char last-sexp) |
370 (beginning-of-line) | 370 (beginning-of-line) |
371 (parse-partial-sexp (point) last-sexp 0 t) | 371 (parse-partial-sexp (point) last-sexp 0 t) |
372 (backward-prefix-chars))))) | 372 (backward-prefix-chars))))) |
373 ;; Point is at the point to indent under unless we are inside a string. | 373 ;; Point is at the point to indent under unless we are inside a string. |
374 ;; Call indentation hook except when overriden by lisp-indent-offset | 374 ;; Call indentation hook except when overridden by lisp-indent-offset |
375 ;; or if the desired indentation has already been computed. | 375 ;; or if the desired indentation has already been computed. |
376 (let ((normal-indent (current-column))) | 376 (let ((normal-indent (current-column))) |
377 (cond ((elt state 3) | 377 (cond ((elt state 3) |
378 ;; Inside a string, don't change indentation. | 378 ;; Inside a string, don't change indentation. |
379 (goto-char indent-point) | 379 (goto-char indent-point) |