APPROVE COMMIT 2006-02-26 Mike Sperber <mike(a)xemacs.org&gt; * inf-lisp.el (inferior-lisp-install-letter-bindings): Re-instate autoloads commented out by jwz eons ago---for some people, ILISP does suck more than inf-lisp.el. -- Cheers =8-} Mike Friede, Völkerverständigung und überhaupt blabla Index: inf-lisp.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/os-utils/inf-lisp.el,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 inf-lisp.el --- inf-lisp.el 14 Jan 1998 06:43:04 -0000 1.1.1.1 +++ inf-lisp.el 26 Feb 2006 14:21:21 -0000 ＠＠ -67,7 +67,7 ＠＠ (require 'lisp-mode)  -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "*What not to save on inferior Lisp's input history. Input matching this regexp is not saved on the input history in Inferior Lisp ＠＠ -136,11 +136,11 ＠＠ 'lisp-show-variable-documentation)) -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (defvar inferior-lisp-program "lisp" "*Program name for invoking an inferior Lisp with for Inferior Lisp mode.") -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (defvar inferior-lisp-load-command "(load \"%s\")\n" "*Format-string for building a Lisp expression to load a file. This format string should use `%s' to substitute a file name ＠＠ -150,7 +150,7 ＠＠ produces cosmetically superior output for this application, but it works only in Common Lisp.") -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (defvar inferior-lisp-prompt "^[^> \n]*>+:? *" "Regexp to recognise prompts in the Inferior Lisp mode. Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl, ＠＠ -199,7 +199,7 ＠＠ processes, you can change `inferior-lisp-buffer' to another process buffer with \\[set-variable].") -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (defvar inferior-lisp-mode-hook '() "*Hook for customizing Inferior Lisp mode.") ＠＠ -267,7 +267,7 ＠＠ "t if STR does not match `inferior-lisp-filter-regexp'." (not (string-match inferior-lisp-filter-regexp str))) -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (defun inferior-lisp (cmd) "Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'. If there is a process already running in `*inferior-lisp*', just switch ＠＠ -288,7 +288,7 ＠＠ (pop-to-buffer "*inferior-lisp*")) ;;;###autoload (add-hook 'same-window-buffer-names "*inferior-lisp*") -;;;jwz: ilisp is better, don't ###autoload +;;;###autoload (define-function 'run-lisp 'inferior-lisp) ;;; Break a string up into a list of arguments.