(defun add-menu (menu-path menu-name menu-items &optional before)
"See the function `add-submenu'."
- (or menu-name (error (gettext "must specify a menu name")))
- (or menu-items (error (gettext "must specify some menu items")))
+ (or menu-name (error "must specify a menu name"))
+ (or menu-items (error "must specify some menu items"))
(add-submenu menu-path (cons menu-name menu-items) before))
;; Can't make this obsolete. easymenu depends on it.
(make-compatible 'add-menu 'add-submenu)
(setq idx (1+ idx) i (1+ i)))
string))
-;; ### This function is not compatible with FSF in some cases. Hard
+;; #### This function is not compatible with FSF in some cases. Hard
;; to fix, because it is hard to trace the logic of the FSF function.
;; In case we need the exact behavior, we can always copy the FSF
;; version, which is very long and does lots of unnecessary stuff.