diff options
| author | David Aspinall | 2008-07-16 22:37:36 +0000 |
|---|---|---|
| committer | David Aspinall | 2008-07-16 22:37:36 +0000 |
| commit | 62f8e1034d6aedf92632ef07508d08e2ba13c7a0 (patch) | |
| tree | d8a989b2dff40f40e6ef908f32e92bba53ddce25 /lib | |
| parent | 4b9ba82f7daeaa727c8ced663cdc081f7b0bd310 (diff) | |
Remove use of :help for menu tooltips- GNU Emacs only.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicode-tokens.el | 10 |
1 files changed, 6 insertions, 4 deletions
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) |