From 03e4d2db0c506895a2d3b1a8a651e3536fddb86e Mon Sep 17 00:00:00 2001 From: Ye Wenbin Date: Thu, 8 Mar 2007 14:11:00 +0000 Subject: Make name readonly in emms-tag editor buffer darcs-hash:20070308141123-94065-8a889520d49cf3d7bd8638d82f38e40dadc0247e.gz --- emms-tag-editor.el | 12 ++++++++---- 1 file 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)) -- cgit v1.2.3