diff options
author | Yoni Rabkin <yoni@rabkins.net> | 2021-04-20 17:34:55 -0400 |
---|---|---|
committer | Yoni Rabkin <yoni@rabkins.net> | 2021-04-20 17:34:55 -0400 |
commit | a51ac5b1fa967413d81530a722a5866eb43c4e4b (patch) | |
tree | 43dcf7f3389ae6091ec23f7b6c1dbbf14e6a9b8d /emms-mark.el | |
parent | f992e4c98b1d472acb802ea2a149f087c2656034 (diff) |
Change the function quoting style to help the compiler.
Patch by Stefan Monnier
Diffstat (limited to 'emms-mark.el')
-rw-r--r-- | emms-mark.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/emms-mark.el b/emms-mark.el index ec9960c..b640e12 100644 --- a/emms-mark.el +++ b/emms-mark.el @@ -1,6 +1,6 @@ ;;; emms-mark.el --- mark track like dired -*- lexical-binding: t; -*- -;; Copyright (C) 2006, 2007, 2008, 2009, 2018 Free Software Foundation, Inc. +;; Copyright (C) 2006-2021 Free Software Foundation, Inc. ;; ;; Author: Ye Wenbin <wenbinye@163.com> @@ -240,18 +240,18 @@ this function collects the result of FUNC." ;;{{{ mode stuff (defvar 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) - (define-key map "t" 'emms-mark-toggle) - (define-key map "%m" 'emms-mark-regexp) + (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) + (define-key map "t" #'emms-mark-toggle) + (define-key map "%m" #'emms-mark-regexp) map) "Keymap for `emms-mark-mode'.") -(defun emms-mark-mode () +(defun emms-mark-mode () ;FIXME: Use `define-derived-mode'. "An EMMS major mode that allows tracks to be marked like dired. \\{emms-mark-mode-map}" (interactive) @@ -272,7 +272,7 @@ this function collects the result of FUNC." ;; show a blank space at beginning of each line (set (make-local-variable 'emms-track-description-function) - 'emms-mark-track-description) + #'emms-mark-track-description) (emms-mark-update-descriptions))) (defun emms-mark-mode-disable () |