anchor.diff:  (setq current-id (or (settings-get "current-index") 0))
   (setq current-playlist (or (settings-get "current-playlist") nil))
   (dolist e (or (settings-get "playlist-tabs") '())
  -	(message-box "playlist element: " (strs (nth 0 e) " / " (nth 1 e)))
  +	;;(message-box "playlist element: " (strs (nth 0 e) " / " (nth 1 e)))
   	(tabs-add-component 'playlist-tabs
   			    (init-playlist (nth 0 e))
   			    (nth 1 e) |0.5 0.5 0.5 0.9|)
  
positive.code:   (settings-set "current-playlist" current-playlist)
    (ctags-save "playback-stats")
    (settings-save "settings")
    (message-box "Exiting" "just exiting"))
  (bind-exit 'on-exit)
  
  ;; bind hotkeys
  
negative.code: (defvar current-id "")
  (defvar current-index 0)
  (defvar current-playlist nil)
  