aboutsummaryrefslogtreecommitdiff
path: root/emms.el
diff options
context:
space:
mode:
Diffstat (limited to 'emms.el')
-rw-r--r--emms.el20
1 files changed, 15 insertions, 5 deletions
diff --git a/emms.el b/emms.el
index 795862b..7354c96 100644
--- a/emms.el
+++ b/emms.el
@@ -463,6 +463,21 @@ whenever possible."
seq)
+;;; Convenient macros
+
+(defmacro emms-with-inhibit-read-only-t (&rest body)
+ "Simple wrapper around `inhibit-read-only'."
+ `(let ((inhibit-read-only t))
+ ,@body))
+(put 'emms-with-inhibit-read-only-t 'edebug-form-spec '(body))
+
+(defmacro emms-with-widened-buffer (&rest body)
+ `(save-restriction
+ (widen)
+ ,@body))
+(put 'emms-with-widened-buffer 'edebug-form-spec '(body))
+
+
;;; Tracks
;; This is a simple datatype to store track information.
@@ -669,11 +684,6 @@ If no playlist exists, a new one is generated."
(point-max)))
(run-hooks 'emms-playlist-cleared-hook))
-(defmacro emms-with-widened-buffer (&rest body)
- `(save-restriction
- (widen)
- ,@body))
-
;;; Point movement within the playlist buffer.
(defun emms-playlist-track-at (&optional pos)
"Return the track at POS (point if not given), or nil if none."