提交: e04c92b0743f3173237b5880ab778a33511800a1 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• 修订版: e04c92b0743f3173237b5880ab778a33511800a1 (tree)
• 时间: 2000-09-25 21:36:17
• 作者: john <john>
• Commiter: john

Log Message

grok how :tooltip's are embedded into doc strings of customization
options

更改概述

• modified: po/sawfish-xgettext

差异

--- a/po/sawfish-xgettext
+++ b/po/sawfish-xgettext
@@ -34,8 +34,13 @@ exec rep "$0" "$@"
 (define (helper form)
   (case (car form)
     ((defcustom)
-     (when (stringp (nth 3 form))
-       (register (nth 3 form))))
+     (let ((doc (nth 3 form))
+	   (keys (nthcdr 4 form)))
+       (let ((tooltip (cadr (memq ':tooltip keys))))
+	 (when tooltip
+	   (setq doc (concat doc "\n\n" tooltip))))
+       (when (stringp doc)
+	 (register doc))))
 
     ((defgroup)
      (let ((real-name (nth 3 form)))