aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYe Wenbin <wenbinye@gmail.com>2007-03-08 14:11:00 +0000
committerYe Wenbin <wenbinye@gmail.com>2007-03-08 14:11:00 +0000
commit03e4d2db0c506895a2d3b1a8a651e3536fddb86e (patch)
treed3fecef053a0c291555182a927ecf7147486a206
parentcb4e6dafa616cbe1c629392f0348d3098bf8c764 (diff)
Make name readonly in emms-tag editor buffer
darcs-hash:20070308141123-94065-8a889520d49cf3d7bd8638d82f38e40dadc0247e.gz
-rw-r--r--emms-tag-editor.el12
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))