diff lisp/net/eudc.el @ 105941:d1bb0f3aad35

* net/eudc.el (eudc-tools-menu): * international/mule-cmds.el (set-coding-system-map) (mule-menu-keymap): * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): * vc-hooks.el (vc-menu-map): Use menu-bar-separator.

--- a/lisp/net/eudc.el	Wed Nov 11 05:57:51 2009 +0000
+++ b/lisp/net/eudc.el	Wed Nov 11 06:06:43 2009 +0000
@@ -1246,14 +1246,14 @@
       (define-key map [email]
 	`(menu-item ,(purecopy "Get Email") eudc-get-email
 		    :help ,(purecopy "Get the email field of NAME from the directory server")))
-      (define-key map [separator-eudc-email] '("--"))
+      (define-key map [separator-eudc-email] menu-bar-separator)
       (define-key map [expand-inline]
 	`(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline
 		    :help ,(purecopy "Query the directory server, and expand the query string before point")))
       (define-key map [query]
 	`(menu-item ,(purecopy "Query with Form") eudc-query-form
 		    :help ,(purecopy "Display a form to query the directory server")))
-      (define-key map [separator-eudc-query] '("--"))
+      (define-key map [separator-eudc-query] menu-bar-separator)
       (define-key map [new]
 	`(menu-item ,(purecopy "New Server") eudc-set-server
 		    :help ,(purecopy "Set the directory server to SERVER using PROTOCOL")))