Commits

Anonymous committed 61eec83

(infodock-wrolo-menu): Fix bug with bad function in menu item:
rolo-edit
(infodock-wrolo-menu): Link fixed to hyperbole Rolo manual.

Comments (0)

Files changed (1)

 ;;; This definition is used by InfoDock and XEmacs.
 (defconst infodock-wrolo-menu
   '("Rolo"
-    ["Manual"            (id-tool-invoke id-man-rolo) t]
+    ["Manual"            (id-info "(hyperbole)Rolo") t]
     "----"
     ["Add-Entry"         (id-tool-invoke 'rolo-add) t]
     ["Delete-Entry"      (id-tool-invoke 'rolo-kill) t]
     ["Display-Prior-Matches" (id-tool-invoke 'rolo-display-matches) t]
     ["Edit-Entry"        (id-tool-invoke 'rolo-edit) t]
     ["Edit-Rolo"         (id-tool-invoke
-			  '(progn (require 'wrolo)
-				  (find-file (car rolo-file-list))
-				  (setq buffer-read-only nil)))
+			  (function (lambda ()
+				      (progn (require 'wrolo)
+					     (find-file (car rolo-file-list))
+					     (setq buffer-read-only nil)))))
      t]
     ["Insert-Entry-at-Point" (id-tool-invoke 'rolo-yank) t]
     ["Mail-to-Address"   (id-tool-invoke 'rolo-mail-to) t]
 ;;; Public functions
 ;;; ************************************************************************
 
+;;;###autoload
 ;;; This definition is used only by XEmacs and Emacs19.
 (defun wrolo-menubar-menu ()
   "Add a Hyperbole Rolo menu to the rolo match buffer menubar."
 	  (add-menu nil (car id-popup-wrolo-menu)
 		    (cdr id-popup-wrolo-menu))))))
 
+;;;###autoload
 ;;; This definition is used only by XEmacs and Emacs19.
 (defun wrolo-popup-menu (event)
   "Popup the Hyperbole Rolo match buffer menu."