;ELC ;;; compiled by wmperry@monolith.perry.org on Thu May 12 12:58:48 1994 ;;; from file /u/wmperry/lisp/development/w3/w3/w3-emacs.el ;;; emacs version 19.10 Lucid (beta22). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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.")) (defun w3-create-faces nil "\ Create faces, the dumb emacs 18 way" nil) (fset 'w3-find-specific-link #[(link) "\n @AA@A Ao @@b\n\")" [w3-zones-list thezones link message "Link %s was not found."] 4 "\ Find LINK in the current document"]) (fset 'w3-zone-eq 'eq) (defun w3-zone-hidden-p (start end) "\ Return t iff the region from start to end is invisible." nil) (defun w3-unhide-zone (start end) "\ Make a region from START TO END visible. (emacs18-unfunctional)" nil) (defun w3-hide-zone (start end) "\ Make a region from START to END invisible. (emacs18-nonfunctional)" nil) (fset 'w3-add-zone #[(start end style data &optional highlight) "@>\n \n@@W ! !E\nB\nAA@@ WAl ! !EAB)" [data (w3 w3form w3graphic) w3-zones-list start copy-marker end zones] 5 "\ Add a zone (normal emacs)"]) (defun w3-all-zones nil "\ Return all the zones in this buffer." w3-zones-list) (defun w3-zones-list nil "\ Return a list of zones for this buffer" w3-zones-list) (fset 'w3-zone-at #[(pt) " @A@\nY @@\nX Ak @)" [w3-zones-list zones pt] 3 "\ Return zone (if any) at buffer position PT"]) (fset 'w3-delete-zone #[(zone) " @ =\n @C\" Am\n*" [w3-zones-list nil val tmp zone append] 4 "\ Delete zone ZONE in this buffer."]) (fset 'w3-zone-end #[(zone) " A@!" [marker-position zone] 2 "\ Return the ending position of zone ZONE"]) (fset 'w3-zone-start #[(zone) " @!" [marker-position zone] 2 "\ Return the starting position of zone ZONE"]) (fset 'w3-fix-extent-endpoints #[nil " @@@A@ !\n! Sf> Sr \n f>Tp A3." [w3-all-zones nil nd-marker st-marker ch nd st x marker-position (9 13 10 32) t (9 13 10 32)] 7 "\ Not done yet"]) (fset 'w3-next-zone #[(zone) " @A@\nA@ @@\n@ Ah @8@= Ar A A@)" [w3-zones-list zones zone 2 w3graphic] 3 "\ Return zone (if any) after ZONE"]) (fset 'w3-previous-zone #[(zone) " @ \" @8@= @ Ah \n*" [w3-zones-list nil last zones eql zone 2 w3graphic] 3 "\ Return zone (if any) before ZONE"]) (fset 'w3-zone-data #[(zone) "AA@" [zone] 1 "\ Return the data segment from zone ZONE"]) (fset 'w3-forward-link #[(p) "US!  @@`X As @@b!uv!)" [p 1 w3-forward-link w3-zones-list zones looking-at "[ \\ \\\n]+" error "No more links."] 3 "\ Go forward 1 link" "P"]) (fset 'w3-back-link #[(p) "US! ! A@@`V! AA@A@`WAk@@b!uv)" [p 1 w3-back-link w3-zones-list error "No links in this document." "No previous link" zones looking-at "[ \\ \\\n]+"] 3 "\ Go back 1 link" "P"]) (fset 'w3-follow-inlined-image #[nil "`!! @= A@!!)" [w3-zone-at zn error "Not on a link!" w3graphic w3-maybe-relative "No inlined image at point."] 3 "\ Follow an inlined image, regardless of whether its a link or not." nil]) (fset 'w3-follow-inlined-image-mouse #[(arg) " !\n= !" [x-mouse-set-point arg major-mode w3-mode w3-follow-inlined-image w3-old-mouse-function-cm] 2 "\ Follow a mouse over an inlined image. If buffer is not in w3-mode, then call function 'w3-fold-mouse-function-cm"]) (fset 'w3-follow-mouse #[(arg) " !\n= !" [x-mouse-set-point arg major-mode w3-mode w3-follow-link w3-old-mouse-function-m] 2 "\ Follow a mouse key in emacs 18, if buffer is not in W3-mode, then call function 'w3-old-mouse-function-m"]) (fset 'w3-setup-version-specifics #[nil "M! =!!! =! !M!\"M\"M!?##ۇ" [w3-insert insert-before-markers fboundp define-mouse system-type next-mach require w3-next boundp MULE w3-mule Apple-Macintosh w3-mac window-system x-popup-menu w3-x-popup-menu x-mouse w3-old-mouse-function-m lookup-key mouse-map x-button-middle w3-old-mouse-function-cm x-button-c-middle hyperb:version define-key w3-follow-mouse w3-follow-inlined-image-mouse nil] 4 "\ Set up routine for emacs 18/NeXTemacs"]) (fset 'w3-store-in-x-clipboard #[(str) "\n!" [window-system x-store-cut-buffer str] 2 "\ Store string STR in the window systems cut buffer"]) (defun w3-mode-version-specifics nil "\ Emacs 18 specific stuff for w3-mode" nil) (fset 'w3-map-links #[(function &optional buffer from to maparg) " \"Ç" [mapcar #[(x) " !@= ! \"Ň" [w3-zone-data x w3 function maparg nil] 3] w3-all-zones nil] 3 "\ Map FUNCTION over the hypertext links which overlap region in BUFFER, starting at FROM and ending at TO. FUNCTION is called with the arguments linkdata, MAPARG. The arguments FROM, TO, MAPARG, and BUFFER default to the beginning of BUFFER, the end of BUFFER, nil, and (current-buffer), respectively. In emacs17, FROM, TO, and BUFFER are ignored.... working on it."]) (provide 'w3-emacs)