Compare commits

...

3 Commits

Author SHA1 Message Date
ff0a35672e Remove fboundp check from mood-line--deflazy
Users are reporting errors caused by deflazy'd functions having void function
definitions. fboundp check may be causing this, and may be unnecessary anyhow.
2023-12-04 18:57:08 -05:00
a19fecd385 Bump patch version number 2023-12-04 18:42:20 -05:00
2050f81860 Fix compatibility with Emacs 27
inhibit-buffer-hooks parameter for get-buffer-create was introduced in Emacs 28.
2023-12-04 18:40:10 -05:00

View File

@ -3,7 +3,7 @@
;; Author: Jessie Hildebrandt <jessieh.net> ;; Author: Jessie Hildebrandt <jessieh.net>
;; Homepage: https://gitlab.com/jessieh/mood-line ;; Homepage: https://gitlab.com/jessieh/mood-line
;; Keywords: mode-line faces ;; Keywords: mode-line faces
;; Version: 3.0.0 ;; Version: 3.0.1
;; Package-Requires: ((emacs "26.1")) ;; Package-Requires: ((emacs "26.1"))
;; This file is not part of GNU Emacs. ;; This file is not part of GNU Emacs.
@ -82,10 +82,8 @@
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
(defmacro mood-line--deflazy (name) (defmacro mood-line--deflazy (name)
"Define dummy function NAME to `require' its module and call actual function. "Define dummy function NAME to `require' its module and call actual function."
If NAME is already bound, this does nothing." (let ((module (intern (car (split-string (symbol-name name) "--")))))
(when-let ((not-bound (not (fboundp name)))
(module (intern (car (split-string (symbol-name name) "--")))))
`(defun ,name (&rest args) `(defun ,name (&rest args)
"Not yet loaded." "Not yet loaded."
(fmakunbound (quote ,name)) (fmakunbound (quote ,name))
@ -401,7 +399,7 @@ See `mood-line-defformat' for a helpful formatting macro."
;; ;;
;; -------------------------------------------------------------------------- ;; ;; -------------------------------------------------------------------------- ;;
(defvar mood-line--escape-buffer (get-buffer-create " *mood-line*" t) (defvar mood-line--escape-buffer (get-buffer-create " *mood-line*")
"Buffer used by `mood-line--escape'.") "Buffer used by `mood-line--escape'.")
(defun mood-line--escape (&rest strings) (defun mood-line--escape (&rest strings)