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

Fix some flycheck warnings

Browse Source
This commit is contained in:
Daniel Borchmann 2025-01-17 19:29:40 +01:00
parent 6b6db486a7
commit 292c8fc89a
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
site-lisp/db-org.el
View File

@ -23,6 +23,7 @@
(autoload 'which-function "which-func") (autoload 'which-function "which-func")
(autoload 'org-element-property "org-element") (autoload 'org-element-property "org-element")
(autoload 'db/org-agenda "db-utils")
(declare-function w32-shell-execute "w32fns.c") (declare-function w32-shell-execute "w32fns.c")
@ -113,7 +114,7 @@ deadlines."
(setq buffer-read-only t) (setq buffer-read-only t)
(message "")))) (message ""))))
(defun db/org-agenda-insert-active-filters (&optional match) (defun db/org-agenda-insert-active-filters (&optional _match)
"Insert string showing the current agenda filters. "Insert string showing the current agenda filters.
The filter display is added after the structural header. The filter display is added after the structural header.
@ -582,7 +583,7 @@ clocked in."
(if at-current-clock-p (if at-current-clock-p
;; From `org-clock-get-clocked-time' ;; From `org-clock-get-clocked-time'
(floor (org-time-convert-to-integer (floor (org-time-convert-to-integer
(org-time-since org-clock-start-time)) (time-since org-clock-start-time))
60) 60)
0)))) 0))))
@ -1249,7 +1250,8 @@ clipboard as with `org-password-manager-get-password', which see.
Otherwise, the password is returned as value from this function Otherwise, the password is returned as value from this function
and can be used for further processing." and can be used for further processing."
(require 'org-password-manager) (eval-when-compile
(require 'org-password-manager))
(let ((pom (org-id-find id 'marker))) (let ((pom (org-id-find id 'marker)))
(unless (markerp pom) (unless (markerp pom)
(user-error "Cannot find item with id %s" id)) (user-error "Cannot find item with id %s" id))
@ -1914,25 +1916,24 @@ linking to any item."
;; nil without any possibility for a custom string. ;; nil without any possibility for a custom string.
(unwind-protect (unwind-protect
(progn (progn
(fset 'completing-read #'(lambda (_prompt (fset 'completing-read #'(lambda (prompt
_table table
&optional &optional
_predicate predicate
_require-match require-match
_initial-input _initial-input
_hist hist
_def def
_inherit-input-method) inherit-input-method)
(ignore _initial-input)
(funcall old-completing-read (funcall old-completing-read
_prompt prompt
_table table
_predicate predicate
_require-match require-match
initial-input initial-input
_hist hist
_def def
_inherit-input-method))) inherit-input-method)))
(org-refile-get-location nil default-buffer)) (org-refile-get-location nil default-buffer))
(fset 'completing-read old-completing-read)))) (fset 'completing-read old-completing-read))))
(pom (nth 3 target-pointer))) (pom (nth 3 target-pointer)))