From 04991a1c0d1e23391f5d88d3e5007e352c1ab3cb Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 11 Nov 2009 06:06:43 +0000 Subject: * 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. --- lisp/net/eudc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/net/eudc.el') diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 9b5f5977f9..4e53f16daf 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -1246,14 +1246,14 @@ This does nothing except loading eudc by autoload side-effect." (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"))) -- cgit v1.2.3