dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Silence some byte-compiler and checkdoc warnings

This commit is contained in:
Daniel - 2023-07-15 14:59:41 +02:00
parent a2f0e0ca3b
commit 82e50e8e22
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
site-lisp/db-utils.el
View File

@ -29,6 +29,7 @@
(autoload 'lm-header "lisp-mnt") (autoload 'lm-header "lisp-mnt")
(declare-function w32-shell-execute "w32fns.c") (declare-function w32-shell-execute "w32fns.c")
(declare-function org-password-manager-get-password-by-id nil)
;;; Application Shortcuts ;;; Application Shortcuts
@ -115,7 +116,7 @@ With ARG, switch to `default-directory' of the current buffer first."
(defun db/test-emacs () (defun db/test-emacs ()
;; from oremacs ;; from oremacs
"Test whether emacs' configuration is not throwing any errors." "Test whether Emacs' configuration is not throwing any errors."
(interactive) (interactive)
(require 'async) (require 'async)
(async-start (async-start
@ -139,7 +140,7 @@ With ARG, switch to `default-directory' of the current buffer first."
(defun db/isearch-forward-symbol-with-prefix (p) (defun db/isearch-forward-symbol-with-prefix (p)
;; http://endlessparentheses.com/quickly-search-for-occurrences-of-the-symbol-at-point.html ;; http://endlessparentheses.com/quickly-search-for-occurrences-of-the-symbol-at-point.html
"Like `isearch-forward', unless prefix argument is provided. "Like the function `isearch-forward', unless prefix argument is provided.
With a prefix argument P, isearch for the symbol at point." With a prefix argument P, isearch for the symbol at point."
(interactive "P") (interactive "P")
(let ((current-prefix-arg nil)) (let ((current-prefix-arg nil))
@ -165,8 +166,7 @@ With a prefix argument P, isearch for the symbol at point."
(delete-trailing-whitespace))) (delete-trailing-whitespace)))
(defun db/find-window-by-buffer-mode (mode) (defun db/find-window-by-buffer-mode (mode)
"Return first window in current frame displaying a buffer with "Return first window in current frame displaying a buffer with major mode MODE."
major mode MODE."
(cl-find-if (lambda (window) (cl-find-if (lambda (window)
(with-current-buffer (window-buffer window) (with-current-buffer (window-buffer window)
(eq major-mode mode))) (eq major-mode mode)))
@ -224,7 +224,7 @@ FORMAT-STRING defaults to some ISO 8601-like format."
(read-string) (read-string)
(replace-regexp-in-string "[\n\t ]" "")))) (replace-regexp-in-string "[\n\t ]" ""))))
(if (not (string-match-p "[0-9a-fA-F]\\{8\\}" input-proper)) (if (not (string-match-p "[0-9a-fA-F]\\{8\\}" input-proper))
(user-error "Input invalid, must be an 8 digit hex string.") (user-error "Input invalid, must be an 8 digit hex string")
(string-to-number input-proper 16))))) (string-to-number input-proper 16)))))
(list (read-hex "High (hex): ") (list (read-hex "High (hex): ")
(read-hex "Low (hex): ")))) (read-hex "Low (hex): "))))
@ -486,7 +486,7 @@ numbers allowed)."
string)) string))
(defun db/dired-ediff-files () (defun db/dired-ediff-files ()
"Compare marked files in dired with ediff. "Compare marked files in Dired with ediff.
From: https://oremacs.com/2017/03/18/dired-ediff/." From: https://oremacs.com/2017/03/18/dired-ediff/."
(interactive) (interactive)
@ -683,7 +683,7 @@ duplicates when elements are considered as symbols."
(apply #'string list-of-bytes)))) (apply #'string list-of-bytes))))
(ert-deftest db/base45-decode-string--basic-tests () (ert-deftest db/base45-decode-string--basic-tests ()
"Test basic decoding examples" "Test basic decoding examples."
;; dash is funny :) ;; dash is funny :)
(-each `(("QED8WEX0" "ietf!") (-each `(("QED8WEX0" "ietf!")
("X.CT3EGEC" "foobar") ("X.CT3EGEC" "foobar")
@ -798,7 +798,7 @@ it. The bookmarks will finally be sorted by their name."
(defun db/bookmark-add-external (location name) (defun db/bookmark-add-external (location name)
"Add NAME as bookmark to LOCATION that is opened by the operating system. "Add NAME as bookmark to LOCATION that is opened by the operating system.
Offers simple completing from the list of recently opened files. Offers simple completing from the list of recently opened files.
In dired, offer all marked files or the currently selected file In Dired, offer all marked files or the currently selected file
as completing instead." as completing instead."
(interactive (list (completing-read "Location: " (if (derived-mode-p 'dired-mode) (interactive (list (completing-read "Location: " (if (derived-mode-p 'dired-mode)
(dired-get-marked-files) (dired-get-marked-files)