projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dd44a39
)
Changed add-on mark ?? -> ? .
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 26 Aug 2005 06:18:05 +0000
(06:18 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 26 Aug 2005 06:18:05 +0000
(06:18 +0000)
lisp/riece-addon.el
patch
|
blob
|
history
diff --git
a/lisp/riece-addon.el
b/lisp/riece-addon.el
index
29a5e08
..
ecf476d
100644
(file)
--- a/
lisp/riece-addon.el
+++ b/
lisp/riece-addon.el
@@
-69,12
+69,12
@@
:group 'riece-addon-list-faces)
(defvar riece-addon-list-unsupported-face 'riece-addon-list-unsupported-face)
:group 'riece-addon-list-faces)
(defvar riece-addon-list-unsupported-face 'riece-addon-list-unsupported-face)
-(defface riece-addon-list-un
known
-face
+(defface riece-addon-list-un
installed
-face
'((t
(:foreground "red")))
'((t
(:foreground "red")))
- "Face used for displaying the un
known
addon."
+ "Face used for displaying the un
installed
addon."
:group 'riece-addon-list-faces)
:group 'riece-addon-list-faces)
-(defvar riece-addon-list-un
known-face 'riece-addon-list-unknown
-face)
+(defvar riece-addon-list-un
installed-face 'riece-addon-list-uninstalled
-face)
(defface riece-addon-list-description-face
'((((class color)
(defface riece-addon-list-description-face
'((((class color)
@@
-93,13
+93,13
@@
'((?+ . riece-addon-list-enabled-face)
(?- . riece-addon-list-disabled-face)
(?! . riece-addon-list-unsupported-face)
'((?+ . riece-addon-list-enabled-face)
(?- . riece-addon-list-disabled-face)
(?! . riece-addon-list-unsupported-face)
- (?
? . riece-addon-list-unknown
-face))
+ (?
. riece-addon-list-uninstalled
-face))
"An alist mapping marks on riece-addon-list-buffer to faces."
:type 'list
:group 'riece-addon-list)
(defcustom riece-addon-list-font-lock-keywords
"An alist mapping marks on riece-addon-list-buffer to faces."
:type 'list
:group 'riece-addon-list)
(defcustom riece-addon-list-font-lock-keywords
- '(("^\\([-+!
?
] [^:]+\\): \\(.*\\)"
+ '(("^\\([-+!
] [^:]+\\): \\(.*\\)"
(1 (cdr (assq (aref (match-string 1) 0)
riece-addon-list-mark-face-alist)))
(2 riece-addon-list-description-face)))
(1 (cdr (assq (aref (match-string 1) 0)
riece-addon-list-mark-face-alist)))
(2 riece-addon-list-description-face)))
@@
-312,8
+312,9
@@
All normal editing commands are turned off."
"-enabled")))
(setq point (point))
(insert (format "%c %S: %s\n"
"-enabled")))
(setq point (point))
(insert (format "%c %S: %s\n"
- (if (not (featurep (car (car pointer))))
- ??
+ (if (not (get (car (car pointer))
+ 'riece-addon-insinuated))
+ ?
(if (null enabled)
?!
(if (symbol-value enabled)
(if (null enabled)
?!
(if (symbol-value enabled)
@@
-329,7
+330,7
@@
Symbols in the leftmost column:
+ The add-on is enabled.
- The add-on is disabled.
! The add-on doesn't support enable/disable operation.
+ The add-on is enabled.
- The add-on is disabled.
! The add-on doesn't support enable/disable operation.
-
? The add-on is not load
ed.
+
The add-on is not insinuat
ed.
")
(insert (substitute-command-keys "
Useful keys:
")
(insert (substitute-command-keys "
Useful keys: