diff options
| author |   Matthew Kennedy <mkennedy@gentoo.org> | 2003-11-12 05:51:00 +0000 |
|---|---|---|
| committer | Matthew Kennedy <mkennedy@gentoo.org> | 2003-11-12 05:51:00 +0000 |
| commit | 631f06b7b69e1ae9533fb8ba7111d3a9cb2d9dfb (patch) | |
| tree | 05e837ef9a34d8e79bbd7835c1f63f11a2d468f5 /app-emacs/ilisp/files | |
| parent | *** empty log message *** (diff) | |
| download | gentoo-2-631f06b7b69e1ae9533fb8ba7111d3a9cb2d9dfb.tar.gz gentoo-2-631f06b7b69e1ae9533fb8ba7111d3a9cb2d9dfb.tar.bz2 gentoo-2-631f06b7b69e1ae9533fb8ba7111d3a9cb2d9dfb.zip | |
hyperspec, clc improvements
Diffstat (limited to 'app-emacs/ilisp/files')
| -rw-r--r-- | app-emacs/ilisp/files/50ilispclc-gentoo.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/app-emacs/ilisp/files/50ilispclc-gentoo.el b/app-emacs/ilisp/files/50ilispclc-gentoo.el index 2b8882e8c658..f5e152f59e0a 100644 --- a/app-emacs/ilisp/files/50ilispclc-gentoo.el +++ b/app-emacs/ilisp/files/50ilispclc-gentoo.el @@ -4,3 +4,17 @@ (setq load-path (cons "@SITELISP@" load-path)) (setq load-path (cons "@SITELISP@/extra" load-path)) (load "/etc/ilisp/ilisp.el") + +(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") + (if (file-exists-p "/usr/share/doc/hyperspec-6.0/HyperSpec") + (progn + (setq common-lisp-hyperspec-root "file:///usr/share/doc/hyperspec-6.0/HyperSpec/") + (setq common-lisp-hyperspec-symbol-table (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))) + (setq common-lisp-hyperspec-root "http://www.lispworks.com/reference/HyperSpec/"))))) + + |