[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d72d97f: * lisp/progmodes/prolog.el: Avoid indentin
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master d72d97f: * lisp/progmodes/prolog.el: Avoid indenting too much, after ":-" |
Date: |
Fri, 09 Oct 2015 19:30:36 +0000 |
branch: master
commit d72d97fcbe4f9a989d3f214eed8036bd52ff0141
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/progmodes/prolog.el: Avoid indenting too much, after ":-"
(prolog-smie-rules): Try and avoid indenting too far after ":-".
---
lisp/progmodes/prolog.el | 11 ++++++++++-
1 files changed, 10 insertions(+), 1 deletions(-)
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 81aeb8d..61d3a3c 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -988,7 +988,16 @@ This is really kludgy, and unneeded (i.e. obsolete) in
Emacs>=24."
(smie-indent-backward-token) ;Skip !
(equal ":-" (car (smie-indent-backward-token))))
(smie-rule-parent prolog-indent-width)))
- (`(:after . ,(or `":-" `"-->")) prolog-indent-width)))
+ (`(:after . ":-")
+ (if (bolp)
+ (save-excursion
+ (smie-indent-forward-token)
+ (skip-chars-forward " \t")
+ (if (eolp)
+ prolog-indent-width
+ (min prolog-indent-width (current-column))))
+ prolog-indent-width))
+ (`(:after . "-->") prolog-indent-width)))
;;-------------------------------------------------------------------
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d72d97f: * lisp/progmodes/prolog.el: Avoid indenting too much, after ":-",
Stefan Monnier <=