Appease byte-compiler senpai
This commit is contained in:
parent
ac514d7a0c
commit
6a5bd216e5
12 changed files with 28 additions and 26 deletions
|
@ -20,7 +20,7 @@
|
|||
;; TODO Find a more elegant solution
|
||||
;; FIXME Causes realgud:cmd-* to focus popup on every invocation
|
||||
(defun +debug*realgud-run-process
|
||||
(debugger-name script-filename cmd-args minibuffer-history &optional no-reset)
|
||||
(debugger-name script-filename cmd-args minibuffer-history-var &optional no-reset)
|
||||
(let* ((cmd-buf (apply #'realgud-exec-shell debugger-name script-filename
|
||||
(car cmd-args) no-reset (cdr cmd-args)))
|
||||
(process (get-buffer-process cmd-buf)))
|
||||
|
@ -36,8 +36,8 @@
|
|||
(let* ((info realgud-cmdbuf-info)
|
||||
(cmd-args (realgud-cmdbuf-info-cmd-args info))
|
||||
(cmd-str (mapconcat #'identity cmd-args " ")))
|
||||
(set minibuffer-history
|
||||
(list-utils-uniq (cons cmd-str (eval minibuffer-history))))))))
|
||||
(set minibuffer-history-var
|
||||
(list-utils-uniq (cons cmd-str (eval minibuffer-history-var))))))))
|
||||
(t
|
||||
(if cmd-buf (switch-to-buffer cmd-buf))
|
||||
(message "Error running command: %s" (mapconcat #'identity cmd-args " "))))
|
||||
|
|
|
@ -170,12 +170,7 @@ across windows."
|
|||
|
||||
(def-package! evil-easymotion
|
||||
:after evil-snipe
|
||||
:config
|
||||
(defvar +evil--snipe-repeat-fn
|
||||
(evilem-create #'evil-snipe-repeat
|
||||
:bind ((evil-snipe-scope 'whole-buffer)
|
||||
(evil-snipe-enable-highlight)
|
||||
(evil-snipe-enable-incremental-highlight)))))
|
||||
:commands evilem-create)
|
||||
|
||||
|
||||
(def-package! evil-embrace
|
||||
|
|
|
@ -6,7 +6,7 @@
|
|||
(defun +jump-to (prop identifier &optional other-window)
|
||||
(with-selected-window
|
||||
(if other-window
|
||||
(save-excursion (other-window) (selected-window))
|
||||
(save-excursion (other-window 1) (selected-window))
|
||||
(selected-window))
|
||||
(let ((fn (plist-get +jump-current-functions prop)))
|
||||
(if (commandp fn)
|
||||
|
|
|
@ -10,6 +10,7 @@
|
|||
(git-link--remote-dir remote))
|
||||
(error "Remote `%s' is unknown or contains an unsupported URL" remote))))
|
||||
|
||||
(defvar git-link-open-in-browser)
|
||||
;;;###autoload
|
||||
(defun +vcs/git-browse ()
|
||||
"Open the website for the current version controlled file. Fallback to
|
||||
|
|
|
@ -1,4 +1,5 @@
|
|||
;;; feature/workspaces/test/autoload-workspaces.el -*- lexical-binding: t; -*-
|
||||
;; -*- no-byte-compile: t; -*-
|
||||
;;; feature/workspaces/test/autoload-workspaces.el
|
||||
|
||||
(require! :feature workspaces)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue