diff options
| -rw-r--r-- | lisp/emms-tag-editor.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/emms-tag-editor.el b/lisp/emms-tag-editor.el index 7ce4533..6ed23f2 100644 --- a/lisp/emms-tag-editor.el +++ b/lisp/emms-tag-editor.el @@ -226,8 +226,7 @@ This string is suitable for inserting into the tags buffer." (defsubst emms-tag-editor-erase-buffer (&optional buf) "Erase the buffer BUF, and ensure that it exists." (let ((inhibit-read-only t)) - (save-excursion - (set-buffer (get-buffer-create buf)) + (with-current-buffer (get-buffer-create buf) (erase-buffer)))) (defsubst emms-tag-editor-insert-track (track) @@ -439,8 +438,7 @@ Available tags are: (mapc (lambda (tag) (princ (format "\t%s - %S\n" (cdr tag) (car tag)))) emms-tag-editor-tags) - (save-excursion - (set-buffer standard-output) + (with-current-buffer standard-output (help-mode))))) map)) current-prefix-arg)) |