home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / field.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  2.3 KB  |  39 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:34:49 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/field.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼é┬┬ç" [boundp buffer-fields nil] 2)
  14. (fset 'add-field #[(start end &optional buffer protected data) "¼ép┴\n!½ä├\n!┴ !½ä├ !\n V½î┼\n )╟╚╔ \nTô╔  ô\n &èqê B ))ç" [buffer markerp start marker-position end nil temp vector field make-marker protected data buffer-fields] 7 "\
  15. Add a new field to BUFFER that starts at START (inclusive)and ends at
  16. END (exclusive).
  17. START and END can be character numbers or markers.
  18. If PROTECTED is non-nil, then the field
  19. will be protected from insertion and deletion.
  20. ALIST (optional) is the initial value for the field's alist.
  21. Returns the field object (which is actually a vector)."])
  22. (byte-code "└┴Mê┬├Mç" [region-field #[nil "└┴ ┬ \"ç" [add-field region-beginning region-end] 3] protected-region-field #[nil "└┴ ┬ p├─%ç" [add-field region-beginning region-end t nil] 6]] 2)
  23. (fset 'field-buffer '(macro . #[(field) "└    ┬Eç" [aref field 1] 3 "\
  24. Return the buffer that FIELD is associated with."]))
  25. (fset 'field-start '(macro . #[(field) "└┴\n├EDç" [1- aref field 2] 4 "\
  26. Return the character number of the current starting point of FIELD"]))
  27. (fset 'field-end '(macro . #[(field) "└    ┬Eç" [aref field 3] 3 "\
  28. Return the character number of the current end point of FIELD"]))
  29. (fset 'field-protected '(macro . #[(field) "└    ┬Eç" [aref field 4] 3 "\
  30. Return t is FIELD is protected, nil otherwise."]))
  31. (fset 'field-alist '(macro . #[(field) "└    ┬Eç" [aref field 5] 3 "\
  32. Return the data associated with FIELD."]))
  33. (fset 'set-field-protected '(macro . #[(field protected) "└    ┬ Fç" [aset field 4 protected] 4 "\
  34. Set the protection status of FIELD to PROTECTED."]))
  35. (fset 'set-field-alist '(macro . #[(field alist) "└    ┬ Fç" [aset field 5 alist] 4 "\
  36. Set the data associate with FIELD to be ALIST."]))
  37. (fset 'delete-field #[(field) "è┴Hqê┬ \"ë)ç" [field 1 delq buffer-field-list] 3 "\
  38. Delete field FIELD, in whichever buffer it belongs to."])
  39.