home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / comms / netsoftware / irchat24.lha / irchat24 / irchat.lha / elisp / irchat / irchat-inlines.elc < prev    next >
Encoding:
Text File  |  1994-03-15  |  2.1 KB  |  8 lines
  1. ;;; compiled by too@ajk.tele.fi on Tue Mar 15 21:12:13 1994
  2. ;;; from file /home/ajk/too/elisp/irchat.src/irchat-inlines.el
  3. ;;; emacs version 18.58.13.
  4. ;;; bytecomp version 2.07; 15-jul-92.
  5. ;;; optimization is on; compiled with emacs18 compatibility.
  6.  
  7. (byte-code "ÀÁ!ˆÂÃ!ˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓM‡" [require defsubst provide irchat-inlines string-list-ci-memberp (macro lambda (thing list) (byte-code "ÀÁ    DÂ\nDDÃBB‡" [let thing list ("returns t if thing is member of list, not funcallable" (let ((item (car list)) (uthing (upcase thing))) (while (and item (not (string-equal uthing (upcase item)))) (setq item (car list) list (cdr list))) item))] 4)) string-list-memberp (macro lambda (thing list) (byte-code "ÀÁ    DÂ\nDDÃBB‡" [let thing list ("returns t if thing is member of list, not funcallable" (let ((item (car list))) (while (and item (not (string-equal thing item))) (setq item (car list) list (cdr list))) item))] 4)) string-list-ci-delete (macro lambda (thing list) (byte-code "ÀÁ    DÂ\nDDÃBB‡" [let thing list ((let ((uthing (upcase thing)) (item (car list)) (result nil)) (while item (if (not (string-equal (upcase item) uthing)) (setq result (nconc result (list item)))) (setq list (cdr list) item (car list))) result))] 4)) string-list-delete (macro lambda (thing list) (byte-code "ÀÁ    DÂ\nDDÃBB‡" [let thing list ((let ((item (car list)) (result nil)) (while item (if (not (string-equal item thing)) (setq result (nconc result (list item)))) (setq list (cdr list) item (car list))) result))] 4)) list-to-assoclist (macro lambda (list) (byte-code "ÀÁ    DCÂBB‡" [let list ((let ((result nil) (item (car list))) (while item (setq result (cons (list item) result) list (cdr list) item (car list))) result))] 3)) matching-substring (macro lambda (string arg) (byte-code "ÀÁ    DÂ\nDDÃBB‡" [let string arg ((substring string (match-beginning arg) (match-end arg)))] 4)) string-ci-equal (macro lambda (s1 s2) (byte-code "ÀÁ    DÂ\nDDÃBB‡" [let s1 s2 ((string-equal (upcase s1) (upcase s2)))] 4)) irchat-next-line (macro lambda (&optional n) (byte-code "ÀÁ    DCÂBB‡" [let n ((if (= (point) (point-max)) (newline)) (forward-line n))] 3))] 2)
  8.