;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:36 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nnoo.el ;;; emacs version 19.31.4. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`nnoo.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ B‡" [boundp nnoo-definition-alist nil current-load-list nnoo-state-alist] 2) #@63 The same as `defvar', only takes list of variables to MAP to. (defalias 'defvoo '(macro . #[(var init &optional doc &rest map) "À ƒ  \f F‚ \fEÅÆ DÆDEE‡" [prog1 doc defvar var init nnoo-define quote map] 6 (#$ . 570)])) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#ˆÀÁÅÆ#‡" [put defvoo lisp-indent-function 2 lisp-indent-hook edebug-form-spec (var init &optional doc &rest map)] 4) #@42 The same as `defun', only register FUNC. (defalias 'deffoo '(macro . #[(func args &rest forms) "ÀÁ\n \fBBBÅÆ\nDDE‡" [prog1 defun func args forms nnoo-register-function quote] 5 (#$ . 942)])) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#ˆÀÁÅÆ#‡" [put deffoo lisp-indent-function 2 lisp-indent-hook edebug-form-spec (&define name lambda-list def-body)] 4) (defalias 'nnoo-register-function #[(func) "ÀÁ !\f\"›‰„ÆÇ \"ˆ @B )‡" [3 assoc nnoo-backend func nnoo-definition-alist funcs error "%s belongs to a backend that hasn't been declared"] 5]) (defalias 'nnoo-declare '(macro . #[(backend &rest parents) "ÀÁÂÃ\fDÅÆÃDEÈBBBÉBBD‡" [eval-and-compile push list quote backend mapcar (lambda (p) (list p)) parents (nil nil) (nnoo-definition-alist)] 8])) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#‡" [put nnoo-declare lisp-indent-function 1 lisp-indent-hook] 4) (defalias 'nnoo-parents #[(backend) "À \n\"A@‡" [assoc backend nnoo-definition-alist] 3]) (defalias 'nnoo-variables #[(backend) "ÀÁ\n \"8‡" [2 assoc backend nnoo-definition-alist] 4]) (defalias 'nnoo-functions #[(backend) "ÀÁ\n \"8‡" [3 assoc backend nnoo-definition-alist] 4]) (defalias 'nnoo-import '(macro . #[(backend &rest imports) "ÀÁ\nDÁ DE‡" [nnoo-import-1 quote backend imports] 4])) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#‡" [put nnoo-import lisp-indent-function 1 lisp-indent-hook] 4) (defalias 'nnoo-import-1 #[(backend imports) "@9ƒ‰A@‚Á‰‰‰A@‰…[ A†*Ç @!\fƒÈÉ\nË\f@!\"‰!„SÌÍ ÎÏ\nDÏ\f@DÐBBBF!ˆ\f‰Aˆ‚+,‡" [imports nnoo-parent-function nil function functions imp call-function nnoo-functions fboundp nnoo-symbol backend nnoo-rest-symbol eval deffoo (&rest args) quote (args)] 8]) (defalias 'nnoo-parent-function #[(backend function args) "À !Ã\nÄ !\nÆ !žA#ˆÇ \")‡" [nnoo-backend function pbackend nnoo-change-server nnoo-current-server backend nnoo-parents apply args] 6]) #@40 Execute FUNCTION on behalf of BACKEND. (defalias 'nnoo-execute #[(backend function &rest args) "À !Ã\nÄ !\nÆ !žA#ˆÇ \")‡" [nnoo-backend function pbackend nnoo-change-server nnoo-current-server backend nnoo-parents apply args] 6 (#$ . 2764)]) (defalias 'nnoo-map-functions '(macro . #[(backend &rest maps) "ÀÁ\nDÁ DE‡" [nnoo-map-functions-1 quote backend maps] 4])) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#‡" [put nnoo-map-functions lisp-indent-function 1 lisp-indent-hook] 4) (defalias 'nnoo-map-functions-1 #[(backend maps) "À‰‰\f‰A@‰…\\ÅÀ AGWƒ= A8§ƒ/Æ ÇBB\nB‚6 A8\nB T‰‚ÈÉÊ Ì @!\"ÍÎÏ DÏ @DÐ\nŸBFF!ˆ‚+‡" [nil i margs m maps 0 nth (args) eval deffoo nnoo-symbol backend nnoo-rest-symbol (&rest args) nnoo-parent-function quote list] 10]) (defalias 'nnoo-backend #[(symbol) "ÀÁ !\"ˆÄ !ʼn•SO!‡" [string-match "^[^-]+-" symbol-name symbol intern 0] 4]) (defalias 'nnoo-rest-symbol #[(symbol) "ÀÁ !\"ˆÄ !Å•ÆO!‡" [string-match "^[^-]+-" symbol-name symbol intern 0 nil] 4]) (defalias 'nnoo-symbol #[(backend symbol) "ÀÁ \f#!‡" [intern format "%s-%s" backend symbol] 5]) (defalias 'nnoo-define #[(var map) "À !‰ ž‰A@\f„ÆÇ \"ˆ\fAAÈ É\f8žÉ\f8\" ˆ\fAA ‰JBÉ\f8B ˆ\n…LÀ\n@! ž\n‰A\n@ DC¤ˆ‚1+‡" [nnoo-backend var backend nnoo-definition-alist def parents error "%s belongs to a backend that hasn't been declared." delq 2 map] 6]) (defalias 'nnoo-change-server #[(backend server defs) " žA ž\n@Æ!È \n„#ÈD‰ B\nA\n š„¡Ë \"ˆÌ\n\nAA\"A†=Í!  ƒX @@ @ALˆ ‰A ˆ‚?\n\n ˆÌ\n\nAA\"A„‚ƒ‚@@@A@Lˆ‰Aˆ‚hƒ¡Ï@@\nÐÑ@A\"#ˆ‰Aˆ‚‚-Ò‡" [backend nnoo-state-alist bstate nnoo-definition-alist sdefs current nnoo-parents parents nil state server nnoo-push-server assoc nnoo-variables defs nnoo-change-server mapcar #[(def) "@A@JD‡" [def] 2] t] 6]) (defalias 'nnoo-push-server #[(backend current) " žÂ!‰AÅÆ\fAA\"\fAA\"¡ˆÈ ƒ4 @@ @@JB B ‰Aˆ‚\f BC¤+‡" [backend nnoo-state-alist nnoo-variables defs bstate delq assoc current nil state] 6]) (defalias 'nnoo-current-server-p #[(backend server) "À !\nš‡" [nnoo-current-server backend server] 2]) (defalias 'nnoo-current-server #[(backend) " žA@‡" [backend nnoo-state-alist] 2]) (defalias 'nnoo-close-server #[(backend &optional server) "„Á\n!ƒB\n žAÅ\fA\"\fƒA\fÇ ˆ\fÈ\fA\"¡ˆAƒA‰A@@ÇLˆ‚.*ɇ" [server nnoo-current-server backend nnoo-state-alist bstate assoc defs nil delq t] 4]) (defalias 'nnoo-close #[(backend) "À \nž\n\"Ç" [delq backend nnoo-state-alist t] 3]) (defalias 'nnoo-status-message #[(backend server) "À !‡" [nnheader-get-report backend] 2]) (defalias 'nnoo-server-opened #[(backend server) "À \n\"… …Ä !‡" [nnoo-current-server-p backend server nntp-server-buffer buffer-name] 3]) (defalias 'nnoo-define-basics '(macro . #[(backend) "ÀÁ DDD‡" [eval-and-compile nnoo-define-basics-1 quote backend] 4])) (defalias 'nnoo-define-basics-1 #[(backend) "À ƒ\"ÂÃÄ @\"ÆÄÇ ‰A@\"È DÉBBF!ˆ‚)ÂÃÄ Ê\"ËÌÈ DÍBBF!‡" [(close-server server-opened status-message) functions eval deffoo nnoo-symbol backend (&optional server) nnoo quote (server) open-server (server &optional defs) nnoo-change-server (server defs)] 8]) (provide (quote nnoo))