(byte-code "!!#! ! \"!1!1\"!B!B\"" [help-map message "Initializing Hyperbole..." where-is-internal hui:menu define-key "h" global-key-binding "" smart-key-operate global-set-key "" hui:ebut-rename "t" sm-mouse-toggle-bindings] 14) (defun smart-key-either (arg) "\ Executes `smart-key' or with non-nil ARG executes `smart-key-meta'." (interactive "P") (if arg (smart-key-meta) (smart-key))) (byte-code "! !?\"*!?* #" [smart-key-init t help-map boundp global-key-binding "" global-set-key smart-key-either where-is-internal smart-key-help define-key "S"] 8) (defvar smart-scroll-proportional nil "\ *Non-nil value makes smart key end-of-line scroll relative to current line. Primary smart key moves current line to top of window. Secondary smart key moves current line to bottom of window. Repeated smart key presses then scroll up/down a windowful. Nil value instead ignores current line and scrolls up or down a windowful.") (defvar smart-key-read-only " " "\ Local Smart Key binding for special read-only modes.") (defvar smart-key-meta-read-only "" "\ Local secondary Smart Key binding for special read-only modes.") (byte-code "! !! \"! \"( 6 4 B6 C> )" [nil newpath hyperb:dir load-path t boundp eval (defconst hyperb:dir (file-name-as-directory "") "Directory where Hyperbole code and doc files are kept.") featurep set load expand-file-name "set" set:member] 9) (defvar hyperb:emacs19-p (if (string-match "^19\\." emacs-version) emacs-version) "\ GNU Emacs 19 version string.") (defvar hyperb:lemacs-p (let ((case-fold-search t)) (if (string-match "Lucid" emacs-version) emacs-version)) "\ Lucid Emacs version string.") (byte-code "!M!!!" [hyperb:lemacs-p nil require hui-le-but hui:but-flash le:but-flash le:cycle-but-color eval (defvar le:but-flash-time 1000 "Machine specific val for empty loop counter, Lucid Emacs but flash delay.") (defun hui:but-flash nil nil)] 7) (defvar hyperb:epoch-p (if (boundp (quote epoch::version)) (if (string< epoch::version "Epoch 4") "V3" "V4")) "\ Simplified Epoch version string, e.g. \"V4\", else nil.") (byte-code "\"!M!! !CC" [hyperb:epoch-p nil hibtypes:begin-load-hook hibtypes:end-load-hook string= "V4" require hui-epV4-b hui:but-flash ep:but-flash ep:cycle-but-color eval (defvar ep:but-flash-time 1000 "Machine specific val for empty loop counter, Epoch but flash delay.") (defun hui:but-flash nil nil) (lambda nil (mapcar (quote require) nil)) (lambda nil (mapcar (quote require) (quote (hib-doc-id))))] 9) (require (quote hinit)) (hyperb:init) (defvar hpath:find-alist (cdr (assoc hyperb:window-system (quote (("emacs19") ("lemacs") ("xterm") ("epoch") ("sun") ("next" ("\\.\\(adaptor\\|app\\|bshlf\\|clr\\|concur\\|create\\|diagram\\|dp\\|e?ps\\|gif\\|locus\\|Mesa\\|nib\\|project\\|sense\\|tiff\\|tree\\)$" . "open")) ("apollo"))))) "\ *Alist of (FILENAME-REGEXP . EDIT-PROGRAM) elements for using window system dependent external programs to edit/display particular file types.") (defvar hpath:variables (quote (hyperb:dir Info-directory Info-directory-list sm-directory load-path exec-path)) "\ *List of Emacs Lisp variable names to substitute in link paths which match to their values. Each variable value, if bound, must be either a pathname or a list of pathnames.") (byte-code "\"\"\"\"\" !,\"!7\"!B\"" [temp-buffer-show-hook temp-buffer-show-function var:append gnus-Startup-hook (Gnus-init) rmail-mode-hook (Rmail-init) mh-inc-folder-hook (Mh-init) vm-mode-hooks (Vm-init) pm-hook (Pm-init) sm-mouse-setup smart-key-help-show global-key-binding "4w" global-set-key wconfig-ring-save "4y" wconfig-yank-pop "4" wconfig-delete-pop] 14) (require (quote hlvar)) (defun hypb:read-only-smart-keys nil "\ Binds smart keys in many read-only modes. Uses values of `smart-key-read-only' and `smart-key-meta-read-only'. Does nothing if either variable is nil." (byte-code " ? ‚! !$ # #!. !< # #!F !T # #!_!o# #!z!# #!!# #! ! # #! ! # #! ! # #! ! # #" [smart-key-read-only smart-key-meta-read-only nil Buffer-menu-mode-map calendar-mode-map dired-mode-map gnus-Group-mode-map gnus-Subject-mode-map Info-mode-map oo-browse-mode-map rmail-mode-map rmail-summary-mode-map unix-apropos-map boundp keymapp define-key smart-key smart-key-either smart-dired] 43)) (hypb:read-only-smart-keys) (provide (quote hsite)) (message "Hyperbole is ready for action.")