From 62f8e1034d6aedf92632ef07508d08e2ba13c7a0 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 16 Jul 2008 22:37:36 +0000 Subject: Remove use of :help for menu tooltips- GNU Emacs only. --- lib/unicode-tokens.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el index 4adca160..3394f7a7 100644 --- a/lib/unicode-tokens.el +++ b/lib/unicode-tokens.el @@ -775,7 +775,6 @@ Replaces contiguous text with 'utoks' property with property value." 'unicode-tokens-rotate-glyph-backward) (define-key unicode-tokens-mode-map [(control ?.)] 'unicode-tokens-rotate-glyph-forward) - ;; otherwise action on space like in X-Symbol? ) ;; @@ -789,12 +788,15 @@ Replaces contiguous text with 'utoks' property with property value." (lambda (fmt) (vector fmt (unicode-tokens-annotate-region-with (downcase fmt)) - :help (concat "Format region as " (downcase fmt)) - :active 'mark-active)) ; XE? region-exists-p + ;; :help is GNU Emacss only + ;; :help (concat "Format region as " (downcase fmt)) + :active 'region-exists-p)) '("Subscript" "Superscript" "Supscript1" "Superscript1" "Idsubscript1" "Idsuperscript1" - "Bold" "Italic" "Script" "Fraktur" "Serif")))) + ;; don't encourage these as saving seems unreliable + ;; "Bold" "Italic" "Script" "Fraktur" "Serif" + )))) (provide 'unicode-tokens) -- cgit v1.2.3