lupan/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle nil returned from helm on C-g

Browse Source
This commit is contained in:
Łukasz Pankowski
2019-12-15 21:13:41 +01:00
parent dff227a67c
commit ac91a5c16a
2 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
init.el
View File

@ -587,9 +587,10 @@ inserted between the braces between the braces."
(defun my-godoc-package () (defun my-godoc-package ()
"Display godoc for given package (with completion)." "Display godoc for given package (with completion)."
(interactive) (interactive)
(godoc (helm :sources (helm-build-sync-source "Go packages" (godoc (or (helm :sources (helm-build-sync-source "Go packages"
:candidates (go-packages)) :candidates (go-packages))
:buffer "*godoc packages*"))) :buffer "*godoc packages*")
(signal 'quit nil))))
(use-package go-guru (use-package go-guru
:after go-mode) :after go-mode)
@ -939,9 +940,10 @@ inserted between the braces between the braces."
(defun my-browse-url (&rest args) (defun my-browse-url (&rest args)
"Select the prefered browser from a helm menu before opening the URL." "Select the prefered browser from a helm menu before opening the URL."
(interactive) (interactive)
(let ((browser (helm :sources (helm-build-sync-source "WWW browsers" (let ((browser (or (helm :sources (helm-build-sync-source "WWW browsers"
:candidates (mapcar 'car my-browsers)) :candidates (mapcar 'car my-browsers))
:buffer "*my browsers*"))) :buffer "*my browsers*")
(signal 'quit nil))))
(apply (cdr (assoc browser my-browsers)) args))) (apply (cdr (assoc browser my-browsers)) args)))
(setq browse-url-browser-function #'my-browse-url) (setq browse-url-browser-function #'my-browse-url)

7
old-go.el
View File

@ -44,9 +44,10 @@ inserted between the braces between the braces."
(defun my-godoc-package () (defun my-godoc-package ()
"Display godoc for given package (with completion)." "Display godoc for given package (with completion)."
(interactive) (interactive)
(godoc (helm :sources (helm-build-sync-source "Go packages" (godoc (or (helm :sources (helm-build-sync-source "Go packages"
:candidates (go-packages)) :candidates (go-packages))
:buffer "*godoc packages*"))) :buffer "*godoc packages*")
(signal 'quit nil))))
(use-package flycheck (use-package flycheck
:defer) :defer)