;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:44:05 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-mov.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 'bol-ilisp #[(arg) "y ?  )" [0 arg comint-skip-prompt ilisp-other-prompt comint-prompt-regexp] 1 "\ Goes to the beginning of line, then skips past the prompt, if any. If a prefix argument is given (\\[universal-argument]), then no prompt skip -- go straight to column 0. The prompt skip is done by skipping text matching the regular expression comint-prompt-regexp or ilisp-other-prompt, both buffer local variables." "P"]) (fset 'beginning-of-defun-lisp #[(&optional stay) " >` ?\n Uy ) " [major-mode ilisp-modes point stay lisp-input-start -1 beginning-of-defun] 2 "\ Go to the next left paren that starts at the left margin or after a prompt in an ILISP buffer. If optional STAY, then do not move to prior defun if at the start of one in an ilisp mode." nil]) (fset 'end-of-defun-lisp #[nil "` \n>! y# n!!`U \n> d#d!m`fU?!)" [point major-mode ilisp-modes beginning-of-defun-lisp t lisp-in-string 0 re-search-forward "^[ \n]*[^; \n]" nil back-to-indentation lisp-end-defun-text comint-prompt-regexp lisp-skip 10] 4 "\ Go to the next left paren that starts at the left margin or after a prompt in an ILISP buffer and go to the end of the expression." nil]) (fset 'lisp-defun-begin #[nil "\n > mn`fU `)" [nil begin major-mode ilisp-modes lisp-input-start 40 beginning-of-defun] 2 "\ Go to the start of the containing defun and return point."]) (fset 'lisp-defun-end #[(&optional no-errorp at-beginp) " ď" [at-beginp lisp-defun-begin nil (byte-code "d! `" [lisp-skip forward-sexp] 2) ((error (byte-code "?!" [no-errorp error "Unbalanced parentheses"] 2)))] 3 "\ Go to the end of the containing defun and return point or nil if there is no end."]) (fset 'lisp-find-next-start #[nil "mdu#Ĕd)" [nil re-search-forward "^\\(\\(;;;\\)\\|\\([^ \n);]\\)\\)" t 0] 4 "\ Find the start of the next line at the left margin that starts with a character besides whitespace, a ) or ;;; and return the point."]) (fset 'lisp-end-defun-text #[(&optional at-start) " ` ŏ)w`U#͔d)Џ`Y`Vbê Vbê̪)4#x`Wb`y#*! `+" [at-start lisp-defun-begin lisp-find-next-start nil (byte-code " `" [forward-sexp] 1) ((error (point-max))) final boundary point "^\"" re-search-forward "^(\\|^;;;" t 0 string-boundary (byte-code " " [forward-sexp t] 1) ((error (goto-char string-boundary) nil)) re-search-backward "^[^; \n]\\|^[^;\n][ ]*[^ \n]" " " comment-start search-forward next-line 1 indent-line-ilisp] 5 "\ Go the end of the text associated with the current defun and return point. The end is the last character before whitespace leading to a left paren or ;;; at the left margin unless it is in a string."]) (fset 'lisp-in-comment #[(test) "y\n!`U?" [0 looking-at test nil] 2 "\ Return T if you are in a comment."]) (fset 'lisp-in-string #[(&optional begin end) "  )w`b`\nW\nw`\nWloSfUu]ˏwU`U`E?W9`W3`E+\nE#+" [begin lisp-end-defun-text end lisp-defun-begin " " nil point done "^\"" 63 (byte-code " ` X" [forward-sexp end] 2) ((error)) t] 4 "\ Return the string region that immediately follows/precedes point or that contains point in optional region BEGIN to END. If point is in region, T will be returned as well."]) (provide 'ilisp-mov)