Compare commits
No commits in common. "ff0a35672e57169bc004ccd8f4a7b6fceec5e93d" and "b568f0faa9e143eafb38016e63715a9ecc7c6c69" have entirely different histories.
ff0a35672e
...
b568f0faa9
10
mood-line.el
10
mood-line.el
@ -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.1
|
;; Version: 3.0.0
|
||||||
;; 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,8 +82,10 @@
|
|||||||
;; -------------------------------------------------------------------------- ;;
|
;; -------------------------------------------------------------------------- ;;
|
||||||
|
|
||||||
(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.
|
||||||
(let ((module (intern (car (split-string (symbol-name name) "--")))))
|
If NAME is already bound, this does nothing."
|
||||||
|
(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))
|
||||||
@ -399,7 +401,7 @@ See `mood-line-defformat' for a helpful formatting macro."
|
|||||||
;;
|
;;
|
||||||
;; -------------------------------------------------------------------------- ;;
|
;; -------------------------------------------------------------------------- ;;
|
||||||
|
|
||||||
(defvar mood-line--escape-buffer (get-buffer-create " *mood-line*")
|
(defvar mood-line--escape-buffer (get-buffer-create " *mood-line*" t)
|
||||||
"Buffer used by `mood-line--escape'.")
|
"Buffer used by `mood-line--escape'.")
|
||||||
|
|
||||||
(defun mood-line--escape (&rest strings)
|
(defun mood-line--escape (&rest strings)
|
||||||
|
Loading…
Reference in New Issue
Block a user