; * lisp/strokes.el: Delete commented out XEmacs compat code.

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 293bdf0f3694b420ddc3f3873ba04f14074744b1..694677ada0b2dd89afa01cb05a26649aa531a94e 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1211,12 +1211,7 @@ the stroke as a character in some language."
 ;;\\{edit-strokes-mode-map}"
 ;;  (setq truncate-lines nil
 ;;     auto-show-mode nil              ; don't want problems here either
-;;     mode-popup-menu edit-strokes-menu) ; what about extent-specific stuff?
-;;  (and (featurep 'menubar)
-;;       current-menubar
-;;       (setq-local current-menubar
-;;                   (copy-sequence current-menubar))
-;;       (add-submenu nil edit-strokes-menu)))
+;;     mode-popup-menu edit-strokes-menu)) ; what about extent-specific stuff?
 
 ;;(let ((map edit-strokes-mode-map))
 ;;  (define-key map "<" 'beginning-of-buffer)