> However, as far as I remember, it needn't be confined to GTK.  I think
> the Lucid and Motif menus should be able to display utf-8 in a utf-8
> locale, at least with recent enough XFree86/X.org for Lucid.  I don't
> recall the details, though, and I think the Lucid menu code needs
> fixing in some way.  It should at least try not to display junk, as it
> currently does if you use text that isn't encodable in the locale.

What I currently see in my Lucid menu is a question mark.  Is that what you
mean by "junk"?  Or maybe it depends on your locale and other Mule settings.
In any case, it would be great to get utf-8 support in the Lucid menu, even
if it's only when you're running under a utf-8 locale.

> By the way, the AUCTeX menu has the same problem as mine with text
> mode menus -- you don't get type-able keys for most of the items, and
> they're obviously useful to have in the absence of a mouse.  I think
> TMM should avoid non-ASCII characters for that, e.g. not do this:

> Possible completions are:
> 0==>Â  (plus-minus sign)        â==>â  (minus-or-plus sign)
> 1==>Ã  (multiplication sign)    2==>Ã  (division sign)
> â==>â  (minus sign)                  â==>â  (asterisk operator)
> â==>â  (star operator)               â==>â  (white circle)
> â==>â  (bullet)                      3==>Â  (middle dot)
> â==>â  (intersection)                â==>â  (union)
> â==>â  (multiset union)              â==>â  (square cap)
> â==>â  (square cup)                  â==>â  (logical or)
> â==>â  (logical and)                 â==>â  (set minus)
> â==>â  (wreath product)

How 'bout the patch below to maths-menu.el (which also fixes your code so
you get paren-matching when inserting a paren-like char).


        Stefan


diff -u -b /u/monnier/src/elisp/misc/maths-menu.el.orig 
/u/monnier/src/elisp/misc/maths-menu.el
--- /u/monnier/src/elisp/misc/maths-menu.el.orig        2005-03-10 
17:10:24.279261870 -0500
+++ /u/monnier/src/elisp/misc/maths-menu.el     2005-03-10 17:09:05.582045901 
-0500
@@ -51,15 +51,19 @@
        (define-key-after map (vector (intern name)) (cons name pane-map))
        (dolist (elt pane)
          (define-key-after pane-map
-           (vector (intern (string (car elt)))) ; convenient unique symbol
-           (cons (format "%c  (%s)" (car elt) (cadr elt))
+           (vector (intern (cadr elt))) ; convenient unique symbol
+           (list 'menu-item
+                 (cadr elt)
                  ;; Using a string here doesn't work.  You get a
                  ;; `Wrong type argument: commandp,' error.
                  ;; That looks like a bug, since
                  ;;   (commandp "a") => t
                  `(lambda ()
+                    ,(format "Insert the character `%c'." (car elt))
                     (interactive)
-                    (insert ,(car elt))))))))
+                    (let ((last-command-char ,(car elt)))
+                      (call-interactively 'self-insert-command)))
+                 :keys (string (car elt)))))))
     map))
 
 (defvar maths-menu-menu


_______________________________________________
Emacs-pretest-bug mailing list
Emacs-pretest-bug@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug

Reply via email to