[nongnu] elpa/tablist 61f653f 52/60: Quote commands as functions

[Philip Kaludercic]

branch: elpa/tablist
commit 61f653f3cf334b22a55a7c1016ba603d68ded1d9
Author: Andreas Politz <politza@hochschule-trier.de>
Commit: Andreas Politz <politza@hochschule-trier.de>

    Quote commands as functions
---
 tablist.el | 124 ++++++++++++++++++++++++++++++-------------------------------
 1 file changed, 62 insertions(+), 62 deletions(-)

diff --git a/tablist.el b/tablist.el
index fa22a2b..f195178 100644
--- a/tablist.el
+++ b/tablist.el
@@ -123,81 +123,81 @@ column."
 
 (defvar tablist-mode-filter-map
   (let ((kmap (make-sparse-keymap)))
-    (define-key kmap "p" 'tablist-pop-filter)
-    (define-key kmap "r" 'tablist-push-regexp-filter)
-    (define-key kmap "=" 'tablist-push-equal-filter)
-    (define-key kmap "n" 'tablist-push-numeric-filter)
-    (define-key kmap "!" 'tablist-negate-filter)
-    (define-key kmap "t" 'tablist-toggle-first-filter-logic)
-    (define-key kmap "/" 'tablist-display-filter)
-    (define-key kmap "z" 'tablist-suspend-filter)
-
-    (define-key kmap "a" 'tablist-push-named-filter)
-    (define-key kmap "s" 'tablist-name-current-filter)
-    (define-key kmap "D" 'tablist-delete-named-filter)
-    (define-key kmap "d" 'tablist-deconstruct-named-filter)
-    (define-key kmap "e" 'tablist-edit-filter)
-    (define-key kmap "C" 'tablist-clear-filter)
+    (define-key kmap "p" #'tablist-pop-filter)
+    (define-key kmap "r" #'tablist-push-regexp-filter)
+    (define-key kmap "=" #'tablist-push-equal-filter)
+    (define-key kmap "n" #'tablist-push-numeric-filter)
+    (define-key kmap "!" #'tablist-negate-filter)
+    (define-key kmap "t" #'tablist-toggle-first-filter-logic)
+    (define-key kmap "/" #'tablist-display-filter)
+    (define-key kmap "z" #'tablist-suspend-filter)
+
+    (define-key kmap "a" #'tablist-push-named-filter)
+    (define-key kmap "s" #'tablist-name-current-filter)
+    (define-key kmap "D" #'tablist-delete-named-filter)
+    (define-key kmap "d" #'tablist-deconstruct-named-filter)
+    (define-key kmap "e" #'tablist-edit-filter)
+    (define-key kmap "C" #'tablist-clear-filter)
     kmap))
 
 (defvar tablist-mode-mark-map
   (let ((kmap (make-sparse-keymap)))
-    (define-key kmap "c" 'tablist-change-marks)
-    (define-key kmap "!" 'tablist-unmark-all-marks)
-    (define-key kmap "r" 'tablist-mark-items-regexp)
-    (define-key kmap "n" 'tablist-mark-items-numeric)
-    (define-key kmap "m" 'tablist-mark-forward)
+    (define-key kmap "c" #'tablist-change-marks)
+    (define-key kmap "!" #'tablist-unmark-all-marks)
+    (define-key kmap "r" #'tablist-mark-items-regexp)
+    (define-key kmap "n" #'tablist-mark-items-numeric)
+    (define-key kmap "m" #'tablist-mark-forward)
     kmap))
 
 (defvar tablist-mode-regexp-map
   (let ((kmap (make-sparse-keymap)))
-    ;; (define-key kmap "&" 'tablist-flag-gargabe-items)
-    (define-key kmap "m" 'tablist-mark-items-regexp)
+    ;; (define-key kmap "&" #'tablist-flag-gargabe-items)
+    (define-key kmap "m" #'tablist-mark-items-regexp)
     kmap))
 
 (defvar tablist-minor-mode-map
   (let ((kmap (make-sparse-keymap)))
-    (define-key kmap "m" 'tablist-mark-forward)
-    (define-key kmap (kbd "DEL") 'tablist-unmark-backward)
-    (define-key kmap "k" 'tablist-do-kill-lines)
-    (define-key kmap "U" 'tablist-unmark-all-marks)
-    (define-key kmap "u" 'tablist-unmark-forward)
-    (define-key kmap "t" 'tablist-toggle-marks)
+    (define-key kmap "m" #'tablist-mark-forward)
+    (define-key kmap (kbd "DEL") #'tablist-unmark-backward)
+    (define-key kmap "k" #'tablist-do-kill-lines)
+    (define-key kmap "U" #'tablist-unmark-all-marks)
+    (define-key kmap "u" #'tablist-unmark-forward)
+    (define-key kmap "t" #'tablist-toggle-marks)
 
-    (define-key kmap (kbd "TAB") 'tablist-forward-column)
-    (define-key kmap "\t" 'tablist-forward-column)
-    (define-key kmap [backtab] 'tablist-backward-column)
+    (define-key kmap (kbd "TAB") #'tablist-forward-column)
+    (define-key kmap "\t" #'tablist-forward-column)
+    (define-key kmap [backtab] #'tablist-backward-column)
 
     (define-key kmap "%" tablist-mode-regexp-map)
     (define-key kmap "*" tablist-mode-mark-map)
     (define-key kmap "/" tablist-mode-filter-map)
 
-    ;; (define-key kmap "e" 'tablist-edit-column)
-    ;; (define-key kmap "i" 'tablist-insert-entry)
-    (define-key kmap "s" 'tablist-sort)
-    (define-key kmap [remap back-to-indentation] 'tablist-move-to-major-column)
-    (define-key kmap [remap next-line] 'tablist-next-line)
-    (define-key kmap [remap previous-line] 'tablist-previous-line)
-    (define-key kmap "<" 'tablist-shrink-column)
-    (define-key kmap ">" 'tablist-enlarge-column)
-    (define-key kmap "q" 'tablist-quit)
-    (define-key kmap "G" 'tablist-revert)
-    (define-key kmap (kbd "C-c C-e") 'tablist-export-csv)
+    ;; (define-key kmap "e" #'tablist-edit-column)
+    ;; (define-key kmap "i" #'tablist-insert-entry)
+    (define-key kmap "s" #'tablist-sort)
+    (define-key kmap [remap back-to-indentation] 
#'tablist-move-to-major-column)
+    (define-key kmap [remap next-line] #'tablist-next-line)
+    (define-key kmap [remap previous-line] #'tablist-previous-line)
+    (define-key kmap "<" #'tablist-shrink-column)
+    (define-key kmap ">" #'tablist-enlarge-column)
+    (define-key kmap "q" #'tablist-quit)
+    (define-key kmap "G" #'tablist-revert)
+    (define-key kmap (kbd "C-c C-e") #'tablist-export-csv)
     kmap))
 
 (defvar tablist-mode-map
   (let ((kmap (copy-keymap tablist-minor-mode-map)))
     (set-keymap-parent kmap tabulated-list-mode-map)
-    (define-key kmap "d" 'tablist-flag-forward)
-    (define-key kmap (kbd "RET") 'tablist-find-entry)
-    (define-key kmap "f" 'tablist-find-entry)
-    ;; (define-key kmap "~" 'tablist-flag-gargabe-items)
-    (define-key kmap "D" 'tablist-do-delete)
-    (define-key kmap "C" 'tablist-do-copy)
-    (define-key kmap "R" 'tablist-do-rename)
-    (define-key kmap "x" 'tablist-do-flagged-delete)
-    ;; (define-key kmap "F" 'tablist-find-marked-items)
-    ;; (define-key kmap (kbd "C-o") 'tablist-display-item)
+    (define-key kmap "d" #'tablist-flag-forward)
+    (define-key kmap (kbd "RET") #'tablist-find-entry)
+    (define-key kmap "f" #'tablist-find-entry)
+    ;; (define-key kmap "~" #'tablist-flag-gargabe-items)
+    (define-key kmap "D" #'tablist-do-delete)
+    (define-key kmap "C" #'tablist-do-copy)
+    (define-key kmap "R" #'tablist-do-rename)
+    (define-key kmap "x" #'tablist-do-flagged-delete)
+    ;; (define-key kmap "F" #'tablist-find-marked-items)
+    ;; (define-key kmap (kbd "C-o") #'tablist-display-item)
     kmap))
 
 ;;
@@ -976,16 +976,16 @@ Optional REVERT-P means, revert the display afterwards."
 (defvar tablist-edit-column-minor-mode-map
   (let ((kmap (make-sparse-keymap)))
     (set-keymap-parent kmap (current-global-map))
-    (define-key kmap [remap self-insert-command] 'self-insert-command)
-    (define-key kmap "\r" 'tablist-edit-column-commit)
-    (define-key kmap (kbd "C-g") 'tablist-edit-column-quit)
-    (define-key kmap (kbd "C-c C-c") 'tablist-edit-column-commit)
-    (define-key kmap (kbd "C-c C-q") 'tablist-edit-column-quit)
-    (define-key kmap "\t" 'tablist-edit-column-complete)
-    (define-key kmap (kbd "TAB") 'tablist-edit-column-complete)
-    (define-key kmap [remap end-of-buffer] 'end-of-line)
-    (define-key kmap [remap beginning-of-buffer] 'beginning-of-line)
-    (define-key kmap [remap mark-whole-buffer] 'tablist-edit-column-mark-field)
+    (define-key kmap [remap self-insert-command] #'self-insert-command)
+    (define-key kmap "\r" #'tablist-edit-column-commit)
+    (define-key kmap (kbd "C-g") #'tablist-edit-column-quit)
+    (define-key kmap (kbd "C-c C-c") #'tablist-edit-column-commit)
+    (define-key kmap (kbd "C-c C-q") #'tablist-edit-column-quit)
+    (define-key kmap "\t" #'tablist-edit-column-complete)
+    (define-key kmap (kbd "TAB") #'tablist-edit-column-complete)
+    (define-key kmap [remap end-of-buffer] #'end-of-line)
+    (define-key kmap [remap beginning-of-buffer] #'beginning-of-line)
+    (define-key kmap [remap mark-whole-buffer] 
#'tablist-edit-column-mark-field)
     kmap))
 
 (define-minor-mode tablist-edit-column-minor-mode