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 3a6d2005cb
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
2 changed files with 24 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)))

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

@ -28,6 +28,7 @@
(autoload 'ldap-search "ldap") (autoload 'ldap-search "ldap")
(autoload 'find-libary-name "find-func") (autoload 'find-libary-name "find-func")
(autoload 'lm-header "lisp-mnt") (autoload 'lm-header "lisp-mnt")
(autoload 'dired-dwim-target-directory "dired-aux")
(declare-function w32-shell-execute "w32fns.c") (declare-function w32-shell-execute "w32fns.c")
(declare-function org-password-manager-get-password-by-id nil) (declare-function org-password-manager-get-password-by-id nil)
@ -486,6 +487,8 @@ numbers allowed)."
From: https://oremacs.com/2017/03/18/dired-ediff/." From: https://oremacs.com/2017/03/18/dired-ediff/."
(interactive) (interactive)
(eval-when-compile
(require 'ediff))
(let ((files (dired-get-marked-files)) (let ((files (dired-get-marked-files))
(wnd (current-window-configuration))) (wnd (current-window-configuration)))
(if (<= (length files) 2) (if (<= (length files) 2)
@ -517,6 +520,8 @@ Also add the default as initial input instead of as default
proper. The latter does not play well with my current completion proper. The latter does not play well with my current completion
framework, as it always tries to match my input with default framework, as it always tries to match my input with default
entries, even if I want to use the input directly." entries, even if I want to use the input directly."
(eval-when-compile
(require 'grep))
(let* ((bn (funcall grep-read-files-function)) (let* ((bn (funcall grep-read-files-function))
(fn (and bn (fn (and bn
(stringp bn) (stringp bn)