;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:45:04 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-utl.el ;;; emacs version 19.8 (beta12) Lucid. ;;; bytecomp version 2.18; 28-aug-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'lisp-show-send #[(string) " q! c )" [ilisp-buffer "*ilisp-send*" error "You must start an inferior LISP with run-ilisp." erase-buffer string] 2 "\ Show STRING in the *ilisp-send* buffer."]) (fset 'lisp-slashify #[(string) " !qeb#!cpeb# cuned{)" [lisp-show-send string "*ilisp-send*" search-forward "\\" nil t delete-char -1 "\\\\" "\"" backward-char 92] 4 "\ Put string in the *ilisp-send* buffer, put backslashes before quotes and backslashes and return the resulting string."]) (fset 'lisp-prefix-p #[(s1 s2) "G\nGXÉ  # O\n Z\\OÕ  O!\n#Õĉĉ; O\n  Z\\O,)" [s1 len1 s2 0 nil t match end start2 start string-match "[^a-zA-Z0-9]" regexp-quote] 7 "\ Returns t if S1 is a prefix of S2 considering all non alphanumerics as word delimiters."]) (fset 'lisp-last-line #[(string) " #ŕt O O)B" [0 position string-match "\\(\n+\\)[^\n]" string 1 nil] 4 "\ Return the last line of STRING with everything else."]) (fset 'lisp-file-extension #[(file extension) "\"O Q" [file 0 string-match ".[^.]*$" "." extension] 5 "\ Return FILE with new EXTENSION."]) (fset 'ilisp-directory #[(file &optional dirs) "\nB@ \"!A@n *" [dirs "" load-path dir file-exists-p expand-file-name file] 5 "\ Return the directory of DIRS that FILE is found in. By default load-path is used for the directories."]) (fset 'ilisp-update-status #[(status) " \" !" [lisp-show-status format " :%s" status ilisp-status comint-update-status] 3 "\ Update process STATUS of the current buffer and let all lisp mode buffers know as well."]) (provide 'ilisp-utl)