From b17958c104cb73834a9eb034b85f3d6fee90a061 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 2 Mar 2019 11:01:43 +0100 Subject: [PATCH] [Utils] Silencing some byte compiler warnings --- site-lisp/db-utils.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index bbeb4d3..530af4c 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -19,9 +19,9 @@ If already in `*ansi-term*' buffer, bury it." (interactive) (if (string= "term-mode" major-mode) (bury-buffer) - (if (get-buffer "*ansi-term*") - (switch-to-buffer "*ansi-term*") - (ansi-term explicit-shell-file-name)))) + (if (get-buffer "*ansi-term*") + (switch-to-buffer "*ansi-term*") + (ansi-term explicit-shell-file-name)))) (defun db/gnus () "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))) (if url (kill-new url) - (error "No link found.")))) + (error "No link found")))) (defun db/test-emacs () ;; from oremacs @@ -229,7 +229,7 @@ lispy." (setq nsm-permanent-host-settings (cl-sort nsm-permanent-host-settings #'string< - :key #'second))) + :key #'cl-second))) (defun db/update-cert-file-directory (symbol new-value) "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)) (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 - (if (save-match-data (looking-back "[\t ]")) + (if (save-match-data (looking-back "[\t ]" 1)) (replace-match " ") (replace-match "")))