* lily/slur.cc (get_first_notecolumn_y): robustness: don't crash

if no note-columns.

* Documentation/user/refman.itely (Point and click):  updates.
(Graphical interfaces): add node
(Vertical spacing): add node

diff --git a/ChangeLog b/ChangeLog
index d7a879586444c83d521095056445ad60f4515a6d..0451f29dca186601bee313d256a6b0c98a2cdbc7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-07-25  Han-Wen  <hanwen@cs.uu.nl>
 
+       * lily/slur.cc (get_first_notecolumn_y): robustness: don't crash
+       if no note-columns.
+
        * server.el.patch: new file.
 
        * Documentation/user/refman.itely (Point and click):  updates.

diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index e1066287e30552c91186011a9ad9b01f7227cdbe..6c6f1e5c665f653186ca0dfcc2e57f6924265c5e 100644 (file)
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -628,6 +628,7 @@ newer.  Enablle the menu Settings -> Inverse search.
 @item Emacs. Emacs is an extensible text-editor.  It is available from
 @uref{http://www.gnu.org/software/emacs/}.  You need version 21 to use
 column location.
+@item XEmacs. Xemacs is very similar to emacs.
 @item NEdit.  NEdit runs under Windows, and Unix.
   It is available from @uref{http://www.nedit.org}.
 @item GVim.  GVim is a lightweight GUI variant of VIM, the popular VI
@@ -666,10 +667,13 @@ Make sure that the environment variable @var{XEDITOR} is set to
 emacsclient --no-wait +%l %f
 @end example
 @cindex @var{XEDITOR}
-For using Vim, set @var{XEDITOR} to @code{gvim +%l %f}, or use this
+If you use xemacs instead of emacs, you use @code{(gnuserve-start)} in
+your @file{.emacs}, and set @code{XEDITOR} to @code{gnuclient -q +%l %f}
+
+For using Vim, set @code{XEDITOR} to @code{gvim +%l %f}, or use this
 argument with xdvi's @code{-editor} option.
 @cindex NEdit
-For using NEdit, set @var{XEDITOR} to @code{nc -noask +%l %f}, or
+For using NEdit, set @code{XEDITOR} to @code{nc -noask +%l %f}, or
 use this argument with xdvi's @code{-editor} option.
 
 If can also make your editor jump to the exact location of the note
@@ -682,7 +686,7 @@ line,
 #(set! point-and-click line-column-location)
 @end example
 @cindex line-colomn-location
-and set @var{XEDITOR} to @code{emacsclient --no-wait +%l:%c %f}.
+and set @code{XEDITOR} to @code{emacsclient --no-wait +%l:%c %f}.
 
 @refbugs
 

diff --git a/lily/slur.cc b/lily/slur.cc
index 424aa55765ee4d26c849620d5ef487931d7e6f9a..bc7d291bf5820b3fe04ebc0696898e9ce0012a26 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -223,12 +223,19 @@ Slur::set_extremities (Grob *me)
 Real
 Slur::get_first_notecolumn_y (Grob *me, Direction dir)
 {
-  Grob *col = dir == LEFT
-    ? unsmob_grob (ly_car (scm_reverse (me->get_grob_property
- ("note-columns"))))
-    : unsmob_grob
- (ly_car (me->get_grob_property ("note-columns")));
+  SCM cols = me->get_grob_property ("note-columns");
+
+  if(!gh_pair_p (cols))
+    {
+      programming_error ("No note-columns in slur?");
+      me->suicide ();
+      return 0.0;
+    }
+  
+  if (dir == LEFT)
+    cols = scm_reverse(cols);
   
+  Grob *col = unsmob_grob (ly_car (cols));
   Grob *common[] =
   {
     0,