| 120 |
(defface kogiku-indicator-advocate-face |
(defface kogiku-indicator-advocate-face |
| 121 |
'((((class color) (type tty)) (:foreground "red" :bold t)) |
'((((class color) (type tty)) (:foreground "red" :bold t)) |
| 122 |
(((class color) (background light)) |
(((class color) (background light)) |
| 123 |
(:foreground "firebrick" :background "pink" :bold t)) |
(:foreground "firebrick" :background "wheat" :bold t)) |
| 124 |
(((class color) (background dark)) |
(((class color) (background dark)) |
| 125 |
(:foreground "pink" :background "firebrick" :bold t)) |
(:foreground "pink" :background "firebrick" :bold t)) |
| 126 |
(t (:inverse-video t :bold t))) |
(t (:inverse-video t :bold t))) |
| 376 |
(make-overlay (point-min) max))) |
(make-overlay (point-min) max))) |
| 377 |
(overlay-put kogiku-minibuffer-prompt-overlay |
(overlay-put kogiku-minibuffer-prompt-overlay |
| 378 |
'before-string indicator) |
'before-string indicator) |
| 379 |
|
(when (not kogiku-emacs21-p) |
| 380 |
|
(overlay-put kogiku-minibuffer-prompt-overlay |
| 381 |
|
'face (when advocate 'kogiku-indicator-advocate-face))) |
| 382 |
(overlay-put kogiku-minibuffer-prompt-overlay 'evaporate t) |
(overlay-put kogiku-minibuffer-prompt-overlay 'evaporate t) |
| 383 |
(when force |
(when force |
| 384 |
(let ((inhibit-quit t)) |
(let ((inhibit-quit t)) |
Parent Directory
Revision Log
Revision Graph
Patch