Compare commits
3 Commits
b568f0faa9
...
ff0a35672e
Author | SHA1 | Date | |
---|---|---|---|
ff0a35672e | |||
a19fecd385 | |||
2050f81860 |
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.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)
|
||||||
|
Loading…
Reference in New Issue
Block a user