Hiroyuki Komatsu
komat****@users*****
2004年 12月 8日 (水) 17:59:58 JST
Index: prime-el/src/prime-main.el
diff -u prime-el/src/prime-main.el:1.11 prime-el/src/prime-main.el:1.12
--- prime-el/src/prime-main.el:1.11 Wed Dec 8 13:33:48 2004
+++ prime-el/src/prime-main.el Wed Dec 8 17:59:58 2004
@@ -324,11 +324,19 @@
;; +1 means the length of "]"
(backward-char (1+ backward-offset)))
- (prime-disp-usage prime-curstr)
+ (prime-disp-annotation prime-curstr)
+ (prime-disp-usage prime-curstr)
))
+(defun prime-disp-annotation (literal)
+ "This displays an annotation for the word LITERAL"
+ (let ((annotation (prime-server-get-word-data literal "annotation")))
+ (if usage
+ (message annotation))
+ ))
+
(defun prime-disp-usage (literal)
- "This displays an usage comment for the word LITERAL"
+ "This displays a usage comment for the word LITERAL"
(let ((usage (prime-server-get-word-data literal "usage")))
(if usage
(message usage))