Eliminate some more byte-compiler warnings

This commit is contained in:
Daniel - 2023-10-28 18:51:04 +02:00
parent a41428eff0
commit 067a8cdacf
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625

47
init.el
View File

@ -132,15 +132,18 @@
(setq frame-title-format "emacs") (setq frame-title-format "emacs")
(setq select-enable-clipboard t ; TODO select.el (use-package help-fns
select-enable-primary t ; TODO select.el :defines (help-enable-symbol-autoload))
(setq select-enable-clipboard t
select-enable-primary t
save-interprogram-paste-before-kill t save-interprogram-paste-before-kill t
mouse-yank-at-point t ; TODO? mouse.el mouse-yank-at-point t
scroll-conservatively 10 scroll-conservatively 10
scroll-preserve-screen-position 'always ; Make M-v undo C-v scroll-preserve-screen-position 'always ; Make M-v undo C-v
message-log-max t message-log-max t
inhibit-eol-conversion nil inhibit-eol-conversion nil
tab-always-indent 'complete ; TODO indent.el tab-always-indent 'complete
enable-recursive-minibuffers t enable-recursive-minibuffers t
set-mark-command-repeat-pop t set-mark-command-repeat-pop t
echo-keystrokes 0.1 echo-keystrokes 0.1
@ -153,8 +156,8 @@
gc-cons-threshold (* 100 1024 1024) ; 100mb gc-cons-threshold (* 100 1024 1024) ; 100mb
read-process-output-max (* 1024 1024) ; 1mb read-process-output-max (* 1024 1024) ; 1mb
next-error-message-highlight t next-error-message-highlight t
help-enable-symbol-autoload t ; TODO? help.el help-enable-symbol-autoload t
describe-bindings-outline t ; TODO? help.el describe-bindings-outline t
redisplay-skip-fontification-on-input t redisplay-skip-fontification-on-input t
undo-limit 80000000 undo-limit 80000000
async-shell-command-buffer 'new-buffer async-shell-command-buffer 'new-buffer
@ -547,6 +550,9 @@
:bind (:map org-mode-map :bind (:map org-mode-map
([remap org-return] . (lambda () (interactive) (org-return :indent))) ([remap org-return] . (lambda () (interactive) (org-return :indent)))
([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox)) ([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox))
:autoload (org-get-todo-state
org-entry-get)
:commands (org-return)
:init (progn :init (progn
(setq org-deadline-warning-days 14 (setq org-deadline-warning-days 14
org-read-date-popup-calendar t org-read-date-popup-calendar t
@ -780,6 +786,7 @@
(use-package ol (use-package ol
:init (setq org-link-keep-stored-after-insertion t) :init (setq org-link-keep-stored-after-insertion t)
:commands (org-store-link) :commands (org-store-link)
:autoload (org-link-set-parameters)
:config (progn :config (progn
(define-advice org-store-link (:around (define-advice org-store-link (:around
@ -822,6 +829,13 @@
org-store-link--return-value)))) org-store-link--return-value))))
(use-package ol-bbdb
:config (add-to-list 'org-bbdb-anniversary-format-alist
(cons "day-of-death"
#'(lambda (name years suffix)
(format "Day of Death: [[bbdb:%s][%s (%s%s)]]"
name name years suffix)))))
(use-package org-id (use-package org-id
:init (setq org-id-link-to-org-use-id t)) :init (setq org-id-link-to-org-use-id t))
@ -874,7 +888,8 @@
;; Agenda ;; Agenda
(use-package org-agenda (use-package org-agenda
:commands (org-agenda) :commands (org-agenda
org-agenda-redo-all)
:bind (:map org-agenda-mode-map :bind (:map org-agenda-mode-map
("i" . org-agenda-clock-in) ("i" . org-agenda-clock-in)
("v" . hydra-org-agenda-view/body) ("v" . hydra-org-agenda-view/body)
@ -1369,14 +1384,7 @@ point to the beginning of buffer first."
:config (progn :config (progn
(add-hook 'message-setup-hook 'bbdb-mail-aliases) (add-hook 'message-setup-hook 'bbdb-mail-aliases)
(add-hook 'mail-setup-hook 'bbdb-mail-aliases) (add-hook 'mail-setup-hook 'bbdb-mail-aliases)
(run-with-timer 0 3600 #'bbdb-save) (run-with-timer 0 3600 #'bbdb-save)))
(with-eval-after-load 'ol-bbdb
(add-to-list 'org-bbdb-anniversary-format-alist
(cons "day-of-death"
#'(lambda (name years suffix)
(format "Day of Death: [[bbdb:%s][%s (%s%s)]]"
name name years suffix)))))))
;; Gnus package configuration ;; Gnus package configuration
@ -2030,6 +2038,10 @@ point to the beginning of buffer first."
(use-package helm (use-package helm
:ensure t :ensure t
:diminish helm-mode :diminish helm-mode
:autoload (helm-execute-persistent-action
helm-select-action
helm-make-source)
:defines (helm-source-bookmarks) ; via helm-bookmarks.el
:init (setq helm-command-prefix-key "C-c h" :init (setq helm-command-prefix-key "C-c h"
helm-input-idle-delay 0.0 helm-input-idle-delay 0.0
helm-buffers-fuzzy-matching t helm-buffers-fuzzy-matching t
@ -2137,8 +2149,6 @@ With universal argument ARG, inhibit display of files in
is too slow (in this case, `db/important-document-path' should is too slow (in this case, `db/important-document-path' should
eventuelly be set to nil, however)." eventuelly be set to nil, however)."
(interactive "P") (interactive "P")
(eval-when-compile
(require 'helm-bookmark))
(helm :sources (list (helm :sources (list
(helm-make-source "Frequently Used" 'helm-source-sync (helm-make-source "Frequently Used" 'helm-source-sync
:candidates (mapcar #'(lambda (entry) :candidates (mapcar #'(lambda (entry)
@ -2379,7 +2389,8 @@ eventuelly be set to nil, however)."
:filter-return #'(lambda (env) (cons "INSIDE_EMACS" env))))) :filter-return #'(lambda (env) (cons "INSIDE_EMACS" env)))))
(use-package term (use-package term
:commands (term-send-string) :commands (term-send-string
term-send-raw)
:init (setq explicit-shell-file-name "/bin/bash") :init (setq explicit-shell-file-name "/bin/bash")
:config (progn :config (progn
(add-hook 'term-exec-hook ; oremacs.com (add-hook 'term-exec-hook ; oremacs.com