procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calculate-lisp-indent): Added indentation for the constants of Lisp.

Browse source
This commit is contained in:
Eli Zaretskii 2007-02-17 11:35:22 +00:00
parent ead4759c9c
commit 8e1ac0634a
2 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-02-17 Alin C. Soare <alinsoar@voila.fr> (tiny change)
* emacs-lisp/lisp-mode.el (calculate-lisp-indent): Added
indentation for the constants of Lisp.
2007-02-17 David Hansen <david.hansen@physik.fu-berlin.de> (tiny change)
* font-lock.el (font-lock-extend-region-wholelines): Test for EOB

18
lisp/emacs-lisp/lisp-mode.el
View file

@ -909,6 +909,24 @@ is the buffer position of the start of the containing expression."
(cond ((elt state 3)
;; Inside a string, don't change indentation.
nil)
((save-excursion
;; test whether current line begins with a constant
(goto-char indent-point)
(skip-chars-forward " \t")
(looking-at ":"))
(let ((desired-indent
(save-excursion
(goto-char (1+ containing-sexp))
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
(point)))
(parse-sexp-ignore-comments t))
;; Align a constant symbol under the last constant symbol
(goto-char calculate-lisp-indent-last-sexp)
(while (> (point) desired-indent)
(if (looking-at ":")
(setq desired-indent (point))
(backward-sexp 1))))
(current-column))
((and (integerp lisp-indent-offset) containing-sexp)
;; Indent by constant offset
(goto-char containing-sexp)