Indentation of constants in LISP

[A Soare <alinsoar@voila.fr>]

[-- Attachment #1: Type: text/plain, Size: 855 bytes --]

Hello.

There is no rule in this moment to align the constant symbols in
lisp, emacs lisp, lisp-interaction modes. For example:

 '( :stipple nil
             :background "LightBlue"
             :foreground "Black"
             :inverse-video nil

(f p q r :name nil
   :server nil

In case that the first symbol of the current line is a constant,
the indentation will be:

 '( :stipple nil
    :background "LightBlue"
    :foreground "Black"
    :inverse-video nil

(f p q r :name nil
         :server nil


etc.

It's not an exhaustive treatment, because there is not an
exhaustive definition of this kind of alignement.


I attached here the file diff which represents the output from 

cvs -d:pserver:anonymous@cvs.gnu.org:/sources/emacs diff emacs/lisp/emacs-lisp/lisp-mode.el

and, in case that the code is accepted, a change log entry.



A Soare

[-- Attachment #2: /diff --]
[-- Type: application/octet-stream, Size: 1185 bytes --]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.196
diff -r1.196 lisp-mode.el
909a910,927
>               ((save-excursion
>                  (goto-char indent-point)
>                  (skip-chars-forward " \t")
>                  (and (looking-at ":")
>                       (thing-at-point 'symbol)))
>                ;; Align a constant symbol under a constant symbol
>                ;; Not used keywordp in order not to intern it
>                (let ((desired-indent
>                       (save-excursion
>                         (goto-char (1+ containing-sexp))
>                         (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
>                         (point))))
>                  (goto-char calculate-lisp-indent-last-sexp)
>                  (while (> (point) desired-indent)
>                    (cond ((equal (elt (thing-at-point 'symbol) 0) ?:)
>                           (setq desired-indent (point)))
>                          (t (backward-sexp 1))))
>                  (current-column)))

[-- Attachment #3: /change-log --]
[-- Type: application/octet-stream, Size: 172 bytes --]

2007-02-02  Alin C. Soare  <alinsoar@voila.fr>  (tiny change)

	* lisp/emacs-lisp/lisp-mode.el (calculate-lisp-indent):
	Added indentation for the constant symbols of Lisp

[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel