emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-09 23:36:34 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

lisp/mpc.el (mpc-last-seek-time, mpc--faster): Not used any more

Browse source
This commit is contained in:
Stefan Monnier 2026-08-01 18:00:41 -04:00
parent d9218edb3e
commit 1095d63d28
1 changed files with 35 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

73
lisp/mpc.el
View file

@ -2570,45 +2570,42 @@ If stopped, start playback."
(t (mpc-proc-cmd "previous")))
(mpc-status-refresh)))
;; FIXME - mpc-last-seek-time and mpc--faster are no longer used;
;; remove them?
;; (defvar mpc-last-seek-time '(0 . 0))
(defvar mpc-last-seek-time '(0 . 0))
(defun mpc--faster (event speedup step)
"Fast forward."
(interactive (list last-nonmenu-event))
(let ((repeat-delay (/ (abs (float step)) speedup)))
(if (not (memq 'down (event-modifiers event)))
(let* ((currenttime (float-time))
(last-time (- currenttime (car mpc-last-seek-time))))
(if (< last-time (* 0.9 repeat-delay))
nil ;; Throttle
(let* ((status (if (< last-time 1.0)
mpc-status (mpc-cmd-status)))
(songid (cdr (assq 'songid status)))
(time (if songid
(if (< last-time 1.0)
(cdr mpc-last-seek-time)
(string-to-number
(cdr (assq 'time status)))))))
(setq mpc-last-seek-time
(cons currenttime (setq time (+ time step))))
(mpc-proc-cmd (list "seekid" songid time)
#'mpc-status-refresh))))
(let ((status (mpc-cmd-status)))
(let* ((songid (cdr (assq 'songid status)))
(time (if songid (string-to-number
(cdr (assq 'time status))))))
(let ((timer (run-with-timer
t repeat-delay
(lambda ()
(mpc-proc-cmd (list "seekid" songid
(setq time (+ time step)))
#'mpc-status-refresh)))))
(while (mouse-movement-p
(event-basic-type (setq event (read-event)))))
(cancel-timer timer)))))))
;; (defun mpc--faster (event speedup step)
;; "Fast forward."
;; (interactive (list last-nonmenu-event))
;; (let ((repeat-delay (/ (abs (float step)) speedup)))
;; (if (not (memq 'down (event-modifiers event)))
;; (let* ((currenttime (float-time))
;; (last-time (- currenttime (car mpc-last-seek-time))))
;; (if (< last-time (* 0.9 repeat-delay))
;; nil ;; Throttle
;; (let* ((status (if (< last-time 1.0)
;; mpc-status (mpc-cmd-status)))
;; (songid (cdr (assq 'songid status)))
;; (time (if songid
;; (if (< last-time 1.0)
;; (cdr mpc-last-seek-time)
;; (string-to-number
;; (cdr (assq 'time status)))))))
;; (setq mpc-last-seek-time
;; (cons currenttime (setq time (+ time step))))
;; (mpc-proc-cmd (list "seekid" songid time)
;; #'mpc-status-refresh))))
;; (let ((status (mpc-cmd-status)))
;; (let* ((songid (cdr (assq 'songid status)))
;; (time (if songid (string-to-number
;; (cdr (assq 'time status))))))
;; (let ((timer (run-with-timer
;; t repeat-delay
;; (lambda ()
;; (mpc-proc-cmd (list "seekid" songid
;; (setq time (+ time step)))
;; #'mpc-status-refresh)))))
;; (while (mouse-movement-p
;; (event-basic-type (setq event (read-event)))))
;; (cancel-timer timer)))))))
(defvar mpc--faster-toggle-timer nil)
(defun mpc--faster-stop ()