Changeset 7559


Ignore:
Timestamp:
Oct 31, 2007, 2:42:25 AM (12 years ago)
Author:
rme
Message:

Use new user defaults key hyperspecURLString.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/cocoa-doc.lisp

    r7481 r7559  
    11(in-package "CCL")
    22
    3 (def-cocoa-default *hyperspec-http-url-string* :string "http://www.lispworks.com/documentation/HyperSpec/" "HTTP URL for HyperSpec lookup")
    4 
    5 (def-cocoa-default *hyperspec-file-url-string* :string "/" "filesystem path for HyperSpec lookup")
     3(def-cocoa-default *hyperspec-url-string* :string "http://www.lispworks.com/documentation/HyperSpec/" "HTTP URL for HyperSpec lookup")
    64
    75(defloadvar *hyperspec-root-url* nil)
    86(defloadvar *hyperspec-map-sym-hash* nil)
    9 
    10 
    117(defloadvar *hyperspec-map-sym-url* nil)
    12 
    13 (def-cocoa-default *hyperspec-use-file-url* :bool nil "selects hyperspec url scheme")
    14 
    158
    169(def-cocoa-default *hyperspec-lookup-enabled* :bool nil "enables hyperspec lookup"
     
    10497  (make-instance 'ns:ns-url
    10598                 :with-string
    106                  (%make-nsstring
    107                   (if *hyperspec-use-file-url*
    108                     *hyperspec-file-url-string*
    109                     *hyperspec-http-url-string*))))
    110    
    111                                
    112                              
     99                 (%make-nsstring *hyperspec-url-string*)))
    113100
    114101(defun hyperspec-map-hash (document)
Note: See TracChangeset for help on using the changeset viewer.