Update stuff
This commit is contained in:
@@ -8,3 +8,4 @@
|
||||
flycheck_init.el
|
||||
local-init.el*
|
||||
*.elc
|
||||
/elisp/loaddefs.el
|
||||
|
||||
@@ -74,9 +74,10 @@ OV is the overlay to filter."
|
||||
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
|
||||
values."
|
||||
(when (or path buffer-file-name)
|
||||
(expand-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)
|
||||
"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.
|
||||
If it is invalid, print a message explaining why and do nothing."
|
||||
(interactive)
|
||||
(when buffer-file-name
|
||||
(with-demoted-errors "`hs-preserve-mode' error: %s"
|
||||
(let* ((db-path (hs-preserve-mode--db-file-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)
|
||||
(message "`hs-preserve-mode' error: Buffer modified, not loading..."))
|
||||
((not status)
|
||||
(hs-preserve-mode--load-db-file db-path))))))
|
||||
(hs-preserve-mode--load-db-file db-path)))))))
|
||||
|
||||
(provide 'hs-preserve-mode)
|
||||
;;; hs-preserve-mode.el ends here
|
||||
|
||||
@@ -400,15 +400,12 @@ language setting in any file."
|
||||
(ltex-eglot--set-variable server 'ltex-eglot-language language))
|
||||
(eglot-signal-didChangeConfiguration server)))
|
||||
|
||||
;;;###autoload
|
||||
(add-to-list 'eglot-server-programs
|
||||
(cons ltex-eglot-modes
|
||||
(list
|
||||
'ltex-eglot-server
|
||||
ltex-eglot-server-binary "--server-type" "TcpSocket"
|
||||
"--no-endless" "--port" :autoport)))
|
||||
|
||||
;;;###autoload
|
||||
(advice-add 'eglot--workspace-configuration-plist :around
|
||||
'ltex-eglot--hack-server-config)
|
||||
|
||||
|
||||
@@ -3895,4 +3895,9 @@ one of the normal rainbow-delimiters-depth-N-face faces."
|
||||
:config
|
||||
(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
|
||||
|
||||
Reference in New Issue
Block a user