Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / framework-gnome.scm

diff --git a/scm/framework-gnome.scm b/scm/framework-gnome.scm
index 9e8cf4510d955dcd123aca45a1fd85927ab79072..7243ccebbcf9c678cd2ff039fbc766e4af9b55ca 100644 (file)
--- 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)