bug#179: 23.0.60; Menu separators are not displayed

[Chong Yidong]

Hello David,

Did you ever get the chance to try Stefan's patch from May?


Stefan Monnier <monnier@iro.umontreal.ca> wrote:

> Does the patch below fix it?
>
>         Stefan

--- subr.el.~1.594.~    2008-05-02 12:47:05.000000000 -0400
+++ subr.el     2008-05-05 02:58:00.000000000 -0400
@@ -571,10 +571,14 @@
       (let* ((key (car binding))
              (item (cdr binding))
              (oldbind (assq key bindings)))
+        (if (null key)
+            ;; nil keys are/were used by easy-menu for "separator lines and
+            ;; separator titles".  Merging them makes no sense.
+            (push binding bindings)
         ;; Newer bindings override older.
         (if oldbind (setq bindings (delq oldbind bindings)))
         (when item                      ;nil bindings just hide older ones.
-          (push binding bindings))))
+            (push binding bindings)))))
     (nconc map bindings)))
 
 (put 'keyboard-translate-table 'char-table-extra-slots 0)