>>>>> "Lennart" == Lennart Borgman <[EMAIL PROTECTED]> 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)
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
