lilypond-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Emacs mode bugfix


From: Chris Jackson
Subject: Emacs mode bugfix
Date: Tue, 9 Apr 2002 00:41:30 +0100
User-agent: Mutt/1.3.28i

This fixes a silly bug in Emacs indentation (open new .ly file,
type \score { <Return> <Tab>, and get an error message)

-- 
chris


Index: ChangeLog
===================================================================
RCS file: /home/lilypond/lilypond/ChangeLog,v
retrieving revision 1.62
diff -p -u -r1.62 ChangeLog
--- ChangeLog   8 Apr 2002 12:22:25 -0000       1.62
+++ ChangeLog   8 Apr 2002 23:38:05 -0000
@@ -1,3 +1,7 @@
+2002-04-08  Chris Jackson <address@hidden>
+
+       * lilypond-indent.el: Bugfix of indentation of final point in buffer
+       
 2002-04-08  Han-Wen Nienhuys  <address@hidden>
 
        * input/regression/script-stack-order.ly: new file.
Index: lilypond-indent.el
===================================================================
RCS file: /home/lilypond/lilypond/lilypond-indent.el,v
retrieving revision 1.2
diff -p -u -r1.2 lilypond-indent.el
--- lilypond-indent.el  7 Apr 2002 10:55:53 -0000       1.2
+++ lilypond-indent.el  8 Apr 2002 23:38:05 -0000
@@ -331,7 +331,8 @@ slur-paren-p defaults to nil.
   (let ( (test-point (point))
         (level 0) )
     (save-excursion 
-      (if (or (and (= (char-after (point)) ?\()
+      (if (or (and (/= (point) (point-max))
+                  (= (char-after (point)) ?\()
                   (or (= (char-after (- (point) 1)) ?#)
                       (and (= (char-after (- (point) 2)) ?#)
                            (= (char-after (- (point) 1)) ?`))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]