* lisp/mpc.el (mpc-songs-jump-to): Don't burp if the user clicks in an

empty buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 876628940c5dae7f5e2ebe6f4ca882bbacb44c78..9d9ae37d175032342ea8436cddd1dd2441766959 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-10-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * mpc.el (mpc-songs-jump-to): Don't burp if the user clicks in an
+       empty buffer.
+
        * mouse.el (mouse-drag-mode-line-1): Modify the end-event we pushed on
        unread-command-events rather than pushing yet-another event.
 

diff --git a/lisp/mpc.el b/lisp/mpc.el
index 251e1864927c80a971d0735aed8aea02f7cb8223..40ccb456400e22a0254192b433f6e7574c188fad 100644 (file)
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -1996,12 +1996,14 @@ This is used so that they can be compared with `eq', which is needed for
        (list (get-text-property (point) 'mpc-file)
              posn))))
   (let* ((plbuf (mpc-proc-cmd "playlist"))
-         (re (concat "^\\([0-9]+\\):" (regexp-quote song-file) "$"))
+         (re (if song-file
+                (concat "^\\([0-9]+\\):" (regexp-quote song-file) "$")))
          (sn (with-current-buffer plbuf
                (goto-char (point-min))
-               (when (re-search-forward re nil t)
+               (when (and re (re-search-forward re nil t))
                  (match-string 1)))))
     (cond
+     ((null re) (posn-set-point posn))
      ((null sn) (error "This song is not in the playlist"))
      ((null (with-current-buffer plbuf (re-search-forward re nil t)))
       ;; song-file only appears once in the playlist: no ambiguity,