(defun riece-command-browse-url (&optional url)
(interactive
- (list (completing-read "Open URL: " (mapcar #'list riece-urls))))
+ (list (completing-read (riece-mcat "Open URL: ")
+ (mapcar #'list riece-urls))))
(browse-url url))
(defun riece-url-create-menu (menu)
(defun riece-url-command-mode-hook ()
(easy-menu-add-item
nil (list (car riece-menu-items))
- '("Open URL..." :filter riece-url-create-menu)))
+ (list (riece-mcat "Open URL...") :filter 'riece-url-create-menu)))
(defun riece-url-insinuate ()
(add-hook 'riece-after-insert-functions 'riece-url-scan-region)
(defun riece-url-uninstall ()
(easy-menu-remove-item
nil (list (car riece-menu-items))
- "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))