improve-emms-mark-and-write-docs.dpatch

Fixed emms-mark-track so that you can (un)mark backwards
with `C-u -3 m'.

Wrote texinfo docs for emms-mark.el.

darcs-hash:20070222165136-c06f4-ececc4b3161d92d827588400d52ad97186a784a5.gz

1 files changed, 18 insertions, 4 deletions

diff --git a/emms-mark.el b/emms-mark.el
index 3ea0b96..802b1f6 100644
--- a/emms-mark.el
+++ b/emms-mark.el
@@ -73,15 +73,26 @@
     (save-excursion
       (beginning-of-line)
       (while (and (not (eobp))
-                  (> arg 0))
+                  (/= arg 0))
         (setq track (get-text-property (point) 'emms-track))
         (delete-char 1)
         (insert (emms-propertize (string emms-mark-char)
                                  'emms-track track))
         (backward-char 1)
-        (put-text-property (point) (progn (forward-line 1) (point))
-                           'face face)
-        (setq arg (1- arg))))))
+        (if (> arg 0)
+            ;; Propertizing forward...
+            (put-text-property (point)
+                               (progn (forward-line 1) (point))
+                               'face face)
+          ;; ... and backward
+          (let ((start (save-excursion (end-of-line) (point))))
+            (put-text-property (progn (beginning-of-line) (point))
+                               start
+                               'face face))
+          (forward-line -1))
+        (setq arg (if (> arg 0)
+                      (1- arg)
+                    (1+ arg)))))))
 
 (defun emms-mark-unmark-track (&optional arg)
   (interactive "p")
@@ -208,6 +219,9 @@ collect the result of FUNC."
 ;;{{{ mode stuff
 (defconst emms-mark-mode-map
   (let ((map (make-sparse-keymap)))
+    (define-key map "W" 'emms-mark-copy-marked-tracks)
+    (define-key map "K" 'emms-mark-kill-marked-tracks)
+    (define-key map "D" 'emms-mark-delete-marked-tracks)
     (define-key map "m" 'emms-mark-forward)
     (define-key map "u" 'emms-mark-unmark-forward)
     (define-key map "U" 'emms-mark-unmark-all)