;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:45:15 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-low.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-previous-sexp #[(&optional prefix) ")" [nil (byte-code " >`p!!U?m`f> x` x w`{)" [major-mode ilisp-modes process-mark get-buffer-process (32 41 10 9) forward-sexp " \n" nil point backward-sexp "^ \n(\"," prefix "#'"] 4) ((error))] 3 "\ Return the previous sexp. If PREFIX is T, then prefix like ' or #' are allowed."]) (fset 'lisp-def-name #[(&optional namep) "!Ĕĕ{ƕ?Ȕȕ{PƔƕ{ ˰ȕ?Ȕȕ{P P ))" [t case-fold-search looking-at "\\(\\((\\(def[^ \n]*\\)[ \n]+\\(\\((\\(setf\\)[ \n]+\\)\\|(?\\)\\)\\|(?\\)\\([^ \n)]*\\)" 7 symbol 6 namep 3 " " "(" ")"] 6 "\ Return the name of a definition assuming that you are at the start of the sexp. If the form starts with DEF, the form start and the next symbol will be returned. Optional NAMEP will return only the name without the defining symbol."]) (fset 'lisp-minus-prefix #[nil "9‡!W[‡" [current-prefix-arg nil t prefix-numeric-value 0] 2 "\ Set current-prefix-arg to its absolute value if numeric and return T if it is a negative."]) (fset 'lisp-defun-region-and-name #[nil " \n E+" [lisp-defun-end lisp-defun-begin begin end lisp-def-name] 3 "\ Return the region of the current defun and the name starting it."]) (fset 'lisp-region-name #[(start end) "b #u` b#x` ^b`fU ` `{ b`SfU `U  R ъ `)`S{R*" [start re-search-forward "^[ ]*[^;\n]" end t -1 re-search-backward move nil " " 40 lisp-def-name forward-sexp from 41 backward-sexp "from " " to "] 5 "\ Return a name for the region from START to END."]) (provide 'ilisp-low)