X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-gnome.scm;h=7243ccebbcf9c678cd2ff039fbc766e4af9b55ca;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=9e8cf4510d955dcd123aca45a1fd85927ab79072;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/scm/framework-gnome.scm b/scm/framework-gnome.scm
index 9e8cf4510d..7243ccebbc 100644
--- a/scm/framework-gnome.scm
+++ b/scm/framework-gnome.scm
@@ -193,12 +193,12 @@
 (define location-callback spawn-editor)
 
 (define (get-location grob)
-  (and-let* ((p (procedure? point-and-click))
+  (and-let* ((p? (procedure? point-and-click))
 	     (g grob)
 	     (cause (ly:grob-property grob 'cause))
-	     (music-origin (if (ly:event? cause)
-			       (ly:event-property cause 'origin)
-			       ;; How come #<unspecified> [and '()]
+	     (music-origin (if (ly:music? cause)
+			       (ly:music-property cause 'origin)
+			       ;; How come #<unspecied> [and '()]
 			       ;; are #t? :-(
 			       #f)))
 	    (if (ly:input-location? music-origin)