Make name readonly in emms-tag editor buffer

darcs-hash:20070308141123-94065-8a889520d49cf3d7bd8638d82f38e40dadc0247e.gz

1 files changed, 8 insertions, 4 deletions

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 51e423d..3ba2489 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -55,14 +55,18 @@
   "Buffer name of tag edit log")
 
 (defun emms-tag-editor-make-format (tags)
-  (format "%%m\n%-16s = %%f\n%s\n\n" "name"
+  (concat "%m\n" (emms-propertize (format "%-16s = " "name")
+                             'read-only t 'rear-nonsticky t
+                             'face 'bold)
+          "%f\n"
           (mapconcat
            (lambda (tag)
              (concat (emms-propertize (format "%-16s = " (symbol-name tag))
-                                      'read-only t 'rear-nonsticky t
-                                      'face 'bold)
+                                 'read-only t 'rear-nonsticky t
+                                 'face 'bold)
                      "%" (cdr (assoc tag emms-tag-editor-tags))))
-           tags "\n")))
+           tags "\n")
+          "\n\n"))
 
 (defvar emms-tag-editor-formats
   (let* ((tags (mapcar 'car emms-tag-editor-tags))