;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:43:47 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-prn.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-skip #[(end) "`W !É`W ?w`f= f =uwW =uMI+" [end comment-start string-to-char nil char done comment "\n " 34 forward-sexp "^\n" 92 2 t] 4 "\ Skip past whitespace, comments, backslashed characters and strings in the current buffer as long as you are before END. This does move the point."]) (fset 'lisp-count-pairs #[(begin end left-delimiter right-delimiter) "` b!`W`f =`Sf= T̏ !\"=!\"`Wu)!4 b +" [0 nil left sexp old-point begin lisp-skip end char left-delimiter 10 (byte-code " " [forward-sexp nil] 1) ((error t)) error "Extra %s" char-to-string right-delimiter] 5 "\ Return the number of top-level pairs of LEFT-DELIMITER and RIGHT-DELIMITER between BEGIN and END. If they don't match, the point will be placed on the offending entry."]) (fset 'find-unbalanced-region-lisp #[(start end) " \n ! !$? !" [lisp-count-pairs start end string-to-char left-delimiter right-delimiter ilisp-complete beep message "Delimiters balance"] 6 "\ Go to the point in region where LEFT-DELIMITER and RIGHT-DELIMITER become unbalanced. Point will be on the offending delimiter." "r"]) (fset 'find-unbalanced-lisp #[(arg) "!ed\"" [arg call-interactively find-unbalanced-region-lisp] 3 "\ Go to the point in buffer where LEFT-DELIMITER and RIGHT-DELIMITER become unbalanced. Point will be on the offending delimiter. If called with a prefix, use the current region." "P"]) (provide 'ilisp-prn)