:group 'media)
(defcustom media/expert nil
- "Should the keymap help be shown?"
+ "Should we bypass the keymap help when starting"
:type 'boolean
:group 'media)
(push (cons url (cons title time)) (cdr (assoc playlist list)))
)))))
- (save-excursion
- (set-buffer (find-file-noselect media/playlist-file))
+ (with-current-buffer (find-file-noselect media/playlist-file)
(erase-buffer)
(mapc (lambda (x)
(insert "PLAYLIST:" (car x) "\n")
(propertize "\n" 'playlist name)
)
(setq media/active-playlist name)
- (message "Playlist `%s' created" name)))
+ ;; (message "Playlist `%s' created" name)
+ ))
(defun media/playlist-position (name)
"Returns the position where the given playlist starts."