Commits

Anonymous committed e6e27ab

(hyperb:customize): Helper. Brings up customize for the package.
(hyperb:find-file-urls-mode): Customizable.
(hyperbole): Created group.

Comments (0)

Files changed (1)

 ;; This is all documented in the Hyperbole installation instructions.
 (require 'hversion)
 
+(defgroup hyperbole nil
+  "The Everyday Net-centric Information Manager."
+  :link '(custom-manual "(hyperbole)Top")
+  :group 'hypermedia)
+
+;;;###autoload
+(defun hyperb:customize ()
+  (interactive)
+  (customize-group "hyperbole"))
+
 ;; Reinitialize hyperb:dir on reload if initialization failed for any reason.
 (and (boundp 'hyperb:dir) (null hyperb:dir) (makunbound 'hyperb:dir))
 
 	   (setq browse-url-browser-function 'browse-url-netscape
 		 browse-url-new-window-p t))))
 
-(defvar hyperb:find-file-urls-mode nil
+;(defvar hyperb:find-file-urls-mode nil
+;  "This is `t' when the efs package is available and use of ftp and http urls in file finding commands has been enabled.
+;Default is `nil' since this can slow down normal file finding.")
+
+(defcustom hyperb:find-file-urls-mode nil
   "This is `t' when the efs package is available and use of ftp and http urls in file finding commands has been enabled.
-Default is `nil' since this can slow down normal file finding.")
+Default is `nil' since this can slow down normal file finding."
+  :group 'hyperbole
+  :type 'boolean
+  :link '(custom-manual "(hyperbole)Using URLs with Find-File"))
 
 (defvar hyperb:efs-path-and-url-regexp
   "\\`/[^/:]+:\\|\\`ftp[:.]\\|\\`www\\.\\|\\`https?:"