(add-hook 'ilisp-load-hook
(function
(lambda ()
;; Set a keybinding for the COMMON-LISP-HYPERSPEC command
(defkey-ilisp [(control f1)] 'common-lisp-hyperspec)
(message "Running ilisp-load-hook")
(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
(setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt")))))
(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
(setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
|