Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 677:7a9b4ea68565
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Jun 1992 05:58:08 +0000 |
| parents | 505130d1ddf8 |
| children | 540b047ece4d |
comparison
equal
deleted
inserted
replaced
| 676:a9a0a9efe0de | 677:7a9b4ea68565 |
|---|---|
| 253 (beginning-of-line) | 253 (beginning-of-line) |
| 254 (setq beg (point)) | 254 (setq beg (point)) |
| 255 (skip-chars-forward " \t") | 255 (skip-chars-forward " \t") |
| 256 (if (looking-at "\\s<\\s<\\s<") | 256 (if (looking-at "\\s<\\s<\\s<") |
| 257 ;; Don't alter indentation of a ;;; comment line. | 257 ;; Don't alter indentation of a ;;; comment line. |
| 258 nil | 258 (goto-char (- (point-max) pos)) |
| 259 (if (and (looking-at "\\s<") (not (looking-at "\\s<\\s<"))) | 259 (if (and (looking-at "\\s<") (not (looking-at "\\s<\\s<"))) |
| 260 ;; Single-semicolon comment lines should be indented | 260 ;; Single-semicolon comment lines should be indented |
| 261 ;; as comment lines, not as code. | 261 ;; as comment lines, not as code. |
| 262 (progn (indent-for-comment) (forward-char -1)) | 262 (progn (indent-for-comment) (forward-char -1)) |
| 263 (if (listp indent) (setq indent (car indent))) | 263 (if (listp indent) (setq indent (car indent))) |