From d465bd61619cee9c778f816a99a04f3eaa9c4ae6 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Mon, 17 Oct 2022 09:46:37 -0500 Subject: [PATCH] More minor fixups --- lisp/git-auto-sync/git-auto-fast-forward-mode.el | 2 +- lisp/llvm-ir-mode.el | 2 +- lisp/quick-bury.el | 2 +- lisp/switch-tabs.el | 3 ++- 4 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/git-auto-sync/git-auto-fast-forward-mode.el b/lisp/git-auto-sync/git-auto-fast-forward-mode.el index d6be05b..ee2d7a7 100644 --- a/lisp/git-auto-sync/git-auto-fast-forward-mode.el +++ b/lisp/git-auto-sync/git-auto-fast-forward-mode.el @@ -112,7 +112,7 @@ (defvar gaff/timer nil) (define-minor-mode git-auto-fast-forward-mode "" - nil nil nil + :lighter "gaff" (if git-auto-fast-forward-mode (setq gaff/timer (run-at-time nil 300 #'gaff/trigger)) (cancel-timer gaff/timer))) diff --git a/lisp/llvm-ir-mode.el b/lisp/llvm-ir-mode.el index 0401041..9bb92a0 100644 --- a/lisp/llvm-ir-mode.el +++ b/lisp/llvm-ir-mode.el @@ -35,7 +35,7 @@ (define-minor-mode llvm-ir-minor-mode "Doc string." - nil "blah" nil + :lighter "llvm-debug" (font-lock-add-keywords nil kwds) (if (fboundp 'font-lock-flush) diff --git a/lisp/quick-bury.el b/lisp/quick-bury.el index a9d88fe..29a3786 100644 --- a/lisp/quick-bury.el +++ b/lisp/quick-bury.el @@ -33,7 +33,7 @@ map)) (define-minor-mode quick-bury-mode "" - nil nil quick-bury-mode-map) + :keymap quick-bury-mode-map) (provide 'quick-bury) ;;; quick-bury.el ends here diff --git a/lisp/switch-tabs.el b/lisp/switch-tabs.el index 7708749..99d8c99 100644 --- a/lisp/switch-tabs.el +++ b/lisp/switch-tabs.el @@ -141,7 +141,8 @@ (setq tab-switch-mode-map map))) (define-minor-mode tab-switch-mode "" - nil nil tab-switch-mode-map :global t) + :keymap tab-switch-mode-map + :global t) (defun init-tab-name (&optional frame) (interactive)