Issue 4811/1: Allow property paths as scalars and in assignments

[lilypond.git] / lily / include / all-font-metrics.hh

diff --git a/lily/include/all-font-metrics.hh b/lily/include/all-font-metrics.hh
index 784a337afab3a7b54fef35afd59aaaf62a825136..f206a3b95d7ec375f6a864c44a8aab7b43170e05 100644 (file)
--- a/lily/include/all-font-metrics.hh
+++ b/lily/include/all-font-metrics.hh
@@ -33,7 +33,7 @@
    Interface to all fonts (both system fonts and fonts loaded
    via Pango).
 */
-class All_font_metrics
+class All_font_metrics : public Smob<All_font_metrics>
 {
   Scheme_hash_table *otf_dict_;
   File_path search_path_;
@@ -48,6 +48,8 @@ class All_font_metrics
 
   All_font_metrics (All_font_metrics const &);
 public:
+  static const char * const type_p_name_; // = 0
+  SCM mark_smob () const;
 
   Index_to_charcode_map const *get_index_to_charcode_map (const string &filename,
                                                           int face_index,