contrapunctus
/
ido-mini
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix custom docstrings 

The first line has to be a complete sentence, because it is displayed
in the Customize interface.
This commit is contained in:
Kashish Sharma 2018-09-17 16:17:03 +05:30
parent 1973b1a30e
commit 424ada79fe
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ido-mini-faces.el
View File

@ -1,19 +1,16 @@
(defface ido-mini-unsaved-buffer
'((t (:foreground "orange")))
"Face used by `ido-mini' to indicate buffers which have
been edited but not saved."
"Face used by `ido-mini' to indicate buffers which have been edited but not saved."
:group 'ido-mini)
(defface ido-mini-buffer-changed
'((t (:foreground "red" :background "black")))
"Face used by `ido-mini' to indicate buffers whose file has
been edited outside Emacs."
"Face used by `ido-mini' to indicate buffers whose file has been edited outside Emacs."
:group 'ido-mini)
(defface ido-mini-buffer-file-missing
'((t (:foreground "Indianred2")))
"Face used by `ido-mini' to indicate buffers whose file does
not exist on disk."
"Face used by `ido-mini' to indicate buffers whose file does not exist on disk."
:group 'ido-mini)
(provide 'ido-mini-faces)

4
ido-mini.el
View File

@ -9,8 +9,8 @@
;; - toggle displaying paths with buffer names
(defun ->list (var functions)
"Assuming FUNCTIONS is a list of functions (FN1 FN2 FN3),
return the result of (FN3 (FN2 (FN1 VAR)))"
"Assuming FUNCTIONS is a list of functions (FN-1 FN-2 ... FN-N),
return the result of (FN-N ... (FN-2 (FN-1 VAR)))"
;; (--reduce-from (funcall it acc) var functions)
(dolist (fn functions)
(setq var (funcall fn var)))