From 36404b441ac92773cf62e3ab01412d69d30e1fdb Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 27 May 2008 07:01:15 +0000 Subject: [PATCH] [XEmacs] Don't translate "Open URL...". --- lisp/riece-url.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/riece-url.el b/lisp/riece-url.el index 34a9aca..ec0ffe0 100644 --- a/lisp/riece-url.el +++ b/lisp/riece-url.el @@ -125,7 +125,10 @@ This maps a string \"Bug#12345\" to a URL (defun riece-url-command-mode-hook () (easy-menu-add-item nil (list (car riece-menu-items)) - (list (riece-mcat "Open URL...") :filter 'riece-url-create-menu))) + (list (if (featurep 'xemacs) + "Open URL..." + (riece-mcat "Open URL...")) + :filter 'riece-url-create-menu))) (defun riece-url-insinuate () (add-hook 'riece-after-insert-functions 'riece-url-scan-region) @@ -137,7 +140,9 @@ This maps a string \"Bug#12345\" to a URL (defun riece-url-uninstall () (easy-menu-remove-item nil (list (car riece-menu-items)) - (riece-mcat "Open URL...")) + (if (featurep 'xemacs) + "Open URL..." + (riece-mcat "Open URL..."))) (remove-hook 'riece-after-insert-functions 'riece-url-scan-region) (remove-hook 'riece-command-mode-hook 'riece-url-command-mode-hook)) -- 2.25.1