Update stuff

This commit is contained in:
2026-06-21 09:58:40 -07:00
parent 05de8c085c
commit 022ffd4733
4 changed files with 21 additions and 16 deletions
+1
View File
@@ -8,3 +8,4 @@
flycheck_init.el flycheck_init.el
local-init.el* local-init.el*
*.elc *.elc
/elisp/loaddefs.el
+4 -2
View File
@@ -74,9 +74,10 @@ OV is the overlay to filter."
PATH defaults to the current buffer's visited file. PATH must not have multiple PATH defaults to the current buffer's visited file. PATH must not have multiple
separators between directories. That is \"a//b\" will result in invalid return separators between directories. That is \"a//b\" will result in invalid return
values." values."
(when (or path buffer-file-name)
(expand-file-name (expand-file-name
(string-replace "/" "%" (string-replace "%" "%%" (or path buffer-file-name))) (string-replace "/" "%" (string-replace "%" "%%" (or path buffer-file-name)))
hs-preserve-mode-db-directory)) hs-preserve-mode-db-directory)))
(defun hs-preserve-mode--file-modification-time (path) (defun hs-preserve-mode--file-modification-time (path)
"Return the modification time of PATH as an float." "Return the modification time of PATH as an float."
@@ -263,6 +264,7 @@ buffer-local changes in hook functions will be reflected."
"Restore previous folds if the database is valid. "Restore previous folds if the database is valid.
If it is invalid, print a message explaining why and do nothing." If it is invalid, print a message explaining why and do nothing."
(interactive) (interactive)
(when buffer-file-name
(with-demoted-errors "`hs-preserve-mode' error: %s" (with-demoted-errors "`hs-preserve-mode' error: %s"
(let* ((db-path (hs-preserve-mode--db-file-path)) (let* ((db-path (hs-preserve-mode--db-file-path))
(status (hs-preserve-mode--db-invalid-p db-path))) (status (hs-preserve-mode--db-invalid-p db-path)))
@@ -272,7 +274,7 @@ If it is invalid, print a message explaining why and do nothing."
((eq status 'modified) ((eq status 'modified)
(message "`hs-preserve-mode' error: Buffer modified, not loading...")) (message "`hs-preserve-mode' error: Buffer modified, not loading..."))
((not status) ((not status)
(hs-preserve-mode--load-db-file db-path)))))) (hs-preserve-mode--load-db-file db-path)))))))
(provide 'hs-preserve-mode) (provide 'hs-preserve-mode)
;;; hs-preserve-mode.el ends here ;;; hs-preserve-mode.el ends here
-3
View File
@@ -400,15 +400,12 @@ language setting in any file."
(ltex-eglot--set-variable server 'ltex-eglot-language language)) (ltex-eglot--set-variable server 'ltex-eglot-language language))
(eglot-signal-didChangeConfiguration server))) (eglot-signal-didChangeConfiguration server)))
;;;###autoload
(add-to-list 'eglot-server-programs (add-to-list 'eglot-server-programs
(cons ltex-eglot-modes (cons ltex-eglot-modes
(list (list
'ltex-eglot-server 'ltex-eglot-server
ltex-eglot-server-binary "--server-type" "TcpSocket" ltex-eglot-server-binary "--server-type" "TcpSocket"
"--no-endless" "--port" :autoport))) "--no-endless" "--port" :autoport)))
;;;###autoload
(advice-add 'eglot--workspace-configuration-plist :around (advice-add 'eglot--workspace-configuration-plist :around
'ltex-eglot--hack-server-config) 'ltex-eglot--hack-server-config)
+5
View File
@@ -3895,4 +3895,9 @@ one of the normal rainbow-delimiters-depth-N-face faces."
:config :config
(evil-set-initial-state 'mines-mode 'emacs)) (evil-set-initial-state 'mines-mode 'emacs))
(let* ((user-lisp-directory (expand-file-name "elisp" user-emacs-directory))
(loaddefs-file (expand-file-name "loaddefs.el" user-lisp-directory)))
(loaddefs-generate user-lisp-directory loaddefs-file)
(load loaddefs-file))
;;; init.el ends here ;;; init.el ends here