home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / register.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  4.1 KB  |  61 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:45:46 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/register.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  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. (defvar register-alist nil "\
  14. Alist of elements (NAME . CONTENTS), one for each Emacs register.
  15. NAME is a character (a number).  CONTENTS is a string, number,
  16. mark or list.  A list represents a rectangle; its elements are strings.")
  17. (fset 'get-register #[(char) "    ₧Aç" [char register-alist] 2 "\
  18. Return contents of Emacs register named CHAR, or nil if none."])
  19. (fset 'set-register #[(char value) "    ₧ë½å\n íê¬ê Bë    B )ç" [char register-alist aelt value] 3 "\
  20. Set contents of Emacs register named CHAR to VALUE.
  21. Returns VALUE."])
  22. (fset 'point-to-register #[(char) "└    ┬ \"ç" [set-register char point-marker] 3 "\
  23. Store current location of point in a register.
  24. Argument is a character, naming the register." "cPoint to register: "])
  25. (fset 'register-to-point 'jump-to-register)
  26. (fset 'jump-to-register #[(char) "└    !├\n!½è─┼\n!!ê\nb¬â╞╟!)ç" [get-register char val markerp switch-to-buffer marker-buffer error "Register doesn't contain a buffer position"] 3 "\
  27. Move point to location stored in a register.
  28. Argument is a character, naming the register." "cJump to register: "])
  29. (fset 'view-register #[(char) "└    !ë¼ê├─┼    !\"¬╘╞É╟╚!ê╟┼    !!ê╟╔!ê\n¿½à╟\n!¬║╩\n!½ò╟╦!ê╟╠═\n!!!ê╟╬!ê╟\n!¬á\n:½ò╟╧!ê\n¡ò╟\n@!ê╨ ê\nAë¬p╟╤!ê╟\n!æ)ç" [get-register char val message "Register %s is empty" single-key-description "*Output*" princ "Register " " contains " markerp "a buffer position:\nbuffer " buffer-name marker-buffer ", position " "the rectangle:\n" terpri "the string:\n"] 6 "\
  30. Display what is contained in register named REGISTER.
  31. REGISTER is a character." "cView register: "])
  32. (fset 'insert-register #[(char &optional arg) "└ ê┴\n!ë:½å─ !ꬥ ;½à cê¬ö ¿¼à┼ !½ç╞ p\"ê¬ä╟╚!ê)    ?¡é╩ ç" [push-mark get-register char val insert-rectangle markerp princ error "Register does not contain text" arg exchange-point-and-mark] 4 "\
  33. Insert contents of register REG.  REG is a character.
  34. Normally puts point before and mark after the inserted text.
  35. If optional second arg is non-nil, puts mark before and point after.
  36. Interactively, second arg is non-nil if prefix arg is supplied." "cInsert register: \nP"])
  37. (fset 'copy-to-register #[(char start end &optional delete-flag) "└    \n {\"ê ¡â\n |ç" [set-register char start end delete-flag] 4 "\
  38. Copy region into register REG.
  39. With prefix arg, delete as well.
  40. Called from program, takes four args:
  41. REG, START, END and DELETE-FLAG.
  42. START and END are buffer positions indicating what to copy." "cCopy to register: \nr\nP"])
  43. (fset 'append-to-register #[(char start end &optional delete-flag) "└    !;¼ä┬├!ê─    └    !{P\"ê¡ä|ç" [get-register char error "Register does not contain text" set-register start end delete-flag] 5 "\
  44. Append region to text in register REG.
  45. With prefix arg, delete as well.
  46. Called from program, takes four args:
  47. REG, START, END and DELETE-FLAG.
  48. START and END are buffer positions indicating what to append." "cAppend to register: \nr\nP"])
  49. (fset 'prepend-to-register #[(char start end &optional delete-flag) "└    !;¼ä┬├!ê─    {└    !P\"ê¡ä|ç" [get-register char error "Register does not contain text" set-register start end delete-flag] 5 "\
  50. Prepend region to text in register REG.
  51. With prefix arg, delete as well.
  52. Called from program, takes four args:
  53. REG, START, END and DELETE-FLAG.
  54. START and END are buffer positions indicating what to prepend." "cPrepend to register: \nr\nP"])
  55. (fset 'copy-rectangle-to-register #[(char start end &optional delete-flag) "└    \n½å├ \"¬ä╞ \"\"ç" [set-register char delete-flag delete-extract-rectangle start end extract-rectangle] 5 "\
  56. Copy rectangular region into register REG.
  57. With prefix arg, delete as well.
  58. Called from program, takes four args:
  59. REG, START, END and DELETE-FLAG.
  60. START and END are buffer positions giving two corners of rectangle." "cCopy rectangle to register: \nr\nP"])
  61.