From af029a83375c39dbe0fef791c41f5f58bbc6ff0b Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Sun, 3 Apr 2005 23:36:54 +0000
Subject: [PATCH] *** empty log message ***

---
 ChangeLog                             | 2 +-
 Documentation/user/introduction.itely | 4 ++--
 lily/grob.cc                          | 9 ++++++---
 3 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9ea527f417..e3ed6c20d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,7 +8,7 @@
 
 	* Documentation/user/point-and-click.itely: document ly:set-option.
 
-	* lily/grob.cc (get_uncached_stencil): only ste grob-cause if
+	* lily/grob.cc (get_uncached_stencil): only set grob-cause if
 	point_and_click_global is set.
 
 	* lily/scm-option.cc (LY_DEFINE): add point-and-click
diff --git a/Documentation/user/introduction.itely b/Documentation/user/introduction.itely
index fde3d73a66..cdd3292b74 100644
--- a/Documentation/user/introduction.itely
+++ b/Documentation/user/introduction.itely
@@ -113,11 +113,11 @@ spot which fragment is which?
 {
    \override Staff.NoteSpacing #'stem-spacing-correction = #0.6
    c'4 e''4 e'4 b'4 |
-   \stemDown b'4 e''4 a'4 e''4 | \bar "||"
+   \stemDown b'8[ e'' a' e''] | \bar "||"
    \override Staff.NoteSpacing #'stem-spacing-correction = #0.0
    \override Staff.StaffSpacing #'stem-spacing-correction = #0.0
    \stemNeutral c'4 e''4 e'4 b'4 |
-   \stemDown b'4 e''4 a'4 e''4 |
+   \stemDown b'8[ e'' a' e''] |
 }
 @end lilypond
 
diff --git a/lily/grob.cc b/lily/grob.cc
index ed1c5dd752..6b17b356b7 100644
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -238,10 +238,13 @@ Grob::get_uncached_stencil () const
     {
       if (to_boolean (get_property ("transparent")))
 	stil = Stencil (m->extent_box (), SCM_EOL).smobbed_copy ();
-      else if (point_and_click_global) 
+      else
 	{
-	  SCM expr = scm_list_3 (ly_symbol2scm ("grob-cause"), self_scm (),
-				 m->expr ());
+	  
+	  SCM expr = m->expr ();
+	  if (point_and_click_global)
+	    expr = scm_list_3 (ly_symbol2scm ("grob-cause"), self_scm (), expr);
+	  
 	  stil = Stencil (m->extent_box (), expr).smobbed_copy ();
 	}
 
-- 
2.39.5