Re: Incorrect indentation after :name

[Stefan Monnier <monnier@iro.umontreal.ca>]

>>>>> "Lennart" == Lennart Borgman <lennart.borgman.073@student.lu.se> writes:

> This gets incorrectly indented after :background.

>           (put-text-property 0 (length s)
>                              'face '(:background "red"
>                                                  :foreground "black"
>                                                  :height 1.5) s)

I've been using the patch below for several years now quite happily.
If people like it, I'll glad it install it,


        Stefan


--- orig/lisp/emacs-lisp/lisp-mode.el
+++ mod/lisp/emacs-lisp/lisp-mode.el
@@ -895,12 +887,18 @@
   (let ((normal-indent (current-column)))
     (goto-char (1+ (elt state 1)))
     (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
-    (if (and (elt state 2)
-             (not (looking-at "\\sw\\|\\s_")))
-        ;; car of form doesn't seem to be a symbol
-        (progn
-          (if (not (> (save-excursion (forward-line 1) (point))
-                      calculate-lisp-indent-last-sexp))
+    (let ((function (and (or (not (elt state 2))
+			     (looking-at "\\(\\sw\\|\\s_\\)+"))
+			 (match-string 0))))
+      (if (or (not function)
+	      (and (> (point) (1+ (point-min)))
+		   (or (save-excursion (backward-char 2) (looking-at "'("))
+		       (keywordp (intern-soft function)))
+		   (not (fboundp (intern-soft function)))))
+	  ;; car of form doesn't seem to be a function
+	  (progn
+	    (if (not (> (save-excursion (forward-line 1) (point))
+			calculate-lisp-indent-last-sexp))
 		(progn (goto-char calculate-lisp-indent-last-sexp)
 		       (beginning-of-line)
 		       (parse-partial-sexp (point)