Appease byte-compiler senpai
This commit is contained in:
parent
ac514d7a0c
commit
6a5bd216e5
12 changed files with 28 additions and 26 deletions
|
@ -5,8 +5,8 @@
|
|||
"Mark all messages within the current selection in mu4e's header view. Uses
|
||||
`this-command-keys' to see what flag you mean."
|
||||
(interactive)
|
||||
(let* ((beg (or (and (region-active-p) evil-visual-beginning) (line-beginning-position)))
|
||||
(end (or (and (region-active-p) evil-visual-end) (line-end-position)))
|
||||
(let* ((beg (or beg (and (region-active-p) evil-visual-beginning) (line-beginning-position)))
|
||||
(end (or end (and (region-active-p) evil-visual-end) (line-end-position)))
|
||||
(key (this-command-keys))
|
||||
(command
|
||||
(car (cl-find-if (lambda (mark) (equal (car (plist-get (cdr mark) :char)) key))
|
||||
|
|
|
@ -28,6 +28,10 @@ playback.")
|
|||
|
||||
(defvar +irc--defer-timer nil)
|
||||
|
||||
(defsubst +irc--pad (left right)
|
||||
(format (format "%%%ds | %%s" +irc-left-padding)
|
||||
(concat "*** " left) right))
|
||||
|
||||
|
||||
;;
|
||||
;; Plugins
|
||||
|
@ -37,10 +41,6 @@ playback.")
|
|||
:commands (circe circe-server-buffers)
|
||||
:init (setq circe-network-defaults nil)
|
||||
:config
|
||||
(defsubst +irc--pad (left right)
|
||||
(format (format "%%%ds | %%s" +irc-left-padding)
|
||||
(concat "*** " left) right))
|
||||
|
||||
(setq circe-default-quit-message nil
|
||||
circe-default-part-message nil
|
||||
circe-use-cycle-completion t
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
(interactive)
|
||||
(+workspace-switch "*Twitter*" t)
|
||||
(delete-other-windows)
|
||||
(condition-case ex
|
||||
(condition-case _ex
|
||||
(progn
|
||||
(call-interactively #'twit)
|
||||
(unless (get-buffer (car twittering-initial-timeline-spec-string))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue