[Utils] Silencing some byte compiler warnings
This commit is contained in:
parent
6d5976a00a
commit
b17958c104
|
@ -19,9 +19,9 @@ If already in `*ansi-term*' buffer, bury it."
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (string= "term-mode" major-mode)
|
(if (string= "term-mode" major-mode)
|
||||||
(bury-buffer)
|
(bury-buffer)
|
||||||
(if (get-buffer "*ansi-term*")
|
(if (get-buffer "*ansi-term*")
|
||||||
(switch-to-buffer "*ansi-term*")
|
(switch-to-buffer "*ansi-term*")
|
||||||
(ansi-term explicit-shell-file-name))))
|
(ansi-term explicit-shell-file-name))))
|
||||||
|
|
||||||
(defun db/gnus ()
|
(defun db/gnus ()
|
||||||
"Switch to the `*Group*' buffer, starting `gnus' if not existent."
|
"Switch to the `*Group*' buffer, starting `gnus' if not existent."
|
||||||
|
@ -91,7 +91,7 @@ If already in `*ansi-term*' buffer, bury it."
|
||||||
(let ((url (plist-get (text-properties-at (point)) 'help-echo)))
|
(let ((url (plist-get (text-properties-at (point)) 'help-echo)))
|
||||||
(if url
|
(if url
|
||||||
(kill-new url)
|
(kill-new url)
|
||||||
(error "No link found."))))
|
(error "No link found"))))
|
||||||
|
|
||||||
(defun db/test-emacs ()
|
(defun db/test-emacs ()
|
||||||
;; from oremacs
|
;; from oremacs
|
||||||
|
@ -229,7 +229,7 @@ lispy."
|
||||||
(setq nsm-permanent-host-settings
|
(setq nsm-permanent-host-settings
|
||||||
(cl-sort nsm-permanent-host-settings
|
(cl-sort nsm-permanent-host-settings
|
||||||
#'string<
|
#'string<
|
||||||
:key #'second)))
|
:key #'cl-second)))
|
||||||
|
|
||||||
(defun db/update-cert-file-directory (symbol new-value)
|
(defun db/update-cert-file-directory (symbol new-value)
|
||||||
"Set SYMBOL to NEW-VALUE and add all certificate in it to `gnutls-trustfiles’.
|
"Set SYMBOL to NEW-VALUE and add all certificate in it to `gnutls-trustfiles’.
|
||||||
|
@ -275,7 +275,7 @@ are assumed to be of the form *.crt."
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(while (re-search-forward "\n[\t ]*" nil 'no-error)
|
(while (re-search-forward "\n[\t ]*" nil 'no-error)
|
||||||
;; In case there was a space, we have to keep at least one as a separator
|
;; In case there was a space, we have to keep at least one as a separator
|
||||||
(if (save-match-data (looking-back "[\t ]"))
|
(if (save-match-data (looking-back "[\t ]" 1))
|
||||||
(replace-match " ")
|
(replace-match " ")
|
||||||
(replace-match "")))
|
(replace-match "")))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user