home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / lisp.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  6.4 KB  |  92 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:43:32 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/lisp.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 defun-prompt-regexp nil "\
  14. Non-nil => regexp to ignore, before the `(' that starts a defun.")
  15. (fset 'forward-sexp #[(&optional arg) "¼é┴┬`\"«â├!bê─╞W¡é╟ ç" [arg 1 scan-sexps buffer-end t zmacs-region-stays 0 backward-prefix-chars] 3 "\
  16. Move forward across one balanced expression (sexp).
  17. With argument, do it that many times.
  18. Negative arg -N means move backward across N balanced expressions." "p"])
  19. (fset 'backward-sexp #[(&optional arg) "¼é┴┬─[!ç" [arg 1 t zmacs-region-stays forward-sexp] 2 "\
  20. Move backward across one balanced expression (sexp).
  21. With argument, do it that many times.
  22. Negative arg -N means move forward across N balanced expressions." "p"])
  23. (fset 'mark-sexp #[(arg) "└è┴\n!ê`)!ê├ ç" [push-mark forward-sexp arg zmacs-activate-region] 3 "\
  24. Set mark ARG sexps from point.
  25. The place mark goes is the same place \\[forward-sexp] would move to
  26. with the same argument." "p"])
  27. (fset 'forward-list #[(&optional arg) "¼é┴┬─`┼#«â╞!bç" [arg 1 t zmacs-region-stays scan-lists 0 buffer-end] 4 "\
  28. Move forward across one balanced group of parentheses.
  29. With argument, do it that many times.
  30. Negative arg -N means move backward across N groups of parentheses." "p"])
  31. (fset 'backward-list #[(&optional arg) "¼é┴┬─[!ç" [arg 1 t zmacs-region-stays forward-list] 2 "\
  32. Move backward across one balanced group of parentheses.
  33. With argument, do it that many times.
  34. Negative arg -N means move forward across N groups of parentheses." "p"])
  35. (fset 'down-list #[(arg) "└\n├V½â─¬ü┼\n├U?¡ò╟`┼#«â╚\n!bê\nZë¬f)ç" [t zmacs-region-stays arg 0 1 -1 inc scan-lists buffer-end] 5 "\
  36. Move forward down one level of parentheses.
  37. With argument, do this that many times.
  38. A negative argument means move backward but still go down a level.
  39. In Lisp programs, an argument is required." "p"])
  40. (fset 'backward-up-list #[(arg) "└    [!ç" [up-list arg] 2 "\
  41. Move backward out of one level of parentheses.
  42. With argument, do this that many times.
  43. A negative argument means move forward but still to a less deep spot.
  44. In Lisp programs, an argument is required." "p"])
  45. (fset 'up-list #[(arg) "└\n├V½â─¬ü┼\n├U?¡ò╟`─#«â╚\n!bê\nZë¬f)ç" [t zmacs-region-stays arg 0 1 -1 inc scan-lists buffer-end] 5 "\
  46. Move forward out of one level of parentheses.
  47. With argument, do this that many times.
  48. A negative argument means move backward but still to a less deep spot.
  49. In Lisp programs, an argument is required." "p"])
  50. (fset 'kill-sexp #[(arg) "`┴\n!ê├`\")ç" [opoint forward-sexp arg kill-region] 3 "\
  51. Kill the sexp (balanced expression) following the cursor.
  52. With argument, kill that many sexps after the cursor.
  53. Negative arg -N means kill N sexps before the cursor." "p"])
  54. (fset 'backward-kill-sexp #[(arg) "└    [!ç" [kill-sexp arg] 2 "\
  55. Kill the sexp (balanced expression) preceding the cursor.
  56. With argument, kill that many sexps before the cursor.
  57. Negative arg -N means kill N sexps after the cursor." "p"])
  58. (fset 'beginning-of-defun #[(&optional arg) "└\n½ê\n├W½â─uê┼½ê╟╚╔R¬ü╩╦╠\n«ü─$¡ä├yê└ç" [t zmacs-region-stays arg 0 1 re-search-backward defun-prompt-regexp "^\\s(\\|" "\\(" "\\)\\s(" "^\\s(" nil move] 5 "\
  59. Move backward to the beginning of a defun.
  60. With argument, do it that many times.  Negative arg -N
  61. means move forward to Nth following beginning of defun.
  62. Returns t unless search stops due to beginning or end of buffer.
  63.  
  64. Normally a defun starts when there is an char with open-parenthesis
  65. syntax at the beginning of a line.  If `defun-prompt-regexp' is
  66. non-nil, then a string which matches that regexp may precede the
  67. open-parenthesis." "p"])
  68. (fset 'buffer-end #[(arg) "┴V½édçeç" [arg 0] 2])
  69. (fset 'end-of-defun #[(&optional arg) "└\n½à\n├U½é─└\n├V½┐`dW½║`╞½ê─uê╔─!¼èo¼â╩uê╔╩!ê╞╦─!ê╠╞wê═╬!½â─yê`X¼S*\nSë¬=\n├W¡╡`╔─!ê╧─!ê─yê`Y½Ü╔╨!½Æ╦─!ê╠╞wê═╤!½ê─yê¬âebê)\nTë¬G)ç" [t zmacs-region-stays arg 0 1 first nil npos pos beginning-of-defun -1 forward-list "     " looking-at "\\s<\\|\n" forward-sexp 2 "[;\n]"] 3 "\
  70. Move forward to next end of defun.  With argument, do it that many times.
  71. Negative argument -N means move back to Nth preceding end of defun.
  72.  
  73. An end of a defun occurs right after the close-parenthesis that matches
  74. the open-parenthesis that starts a defun; see `beginning-of-defun'." "p"])
  75. (fset 'mark-defun #[nil "└`!ê┴ ê└`!ê┬ ê├─`┼Z╞#ê╟ ç" [push-mark end-of-defun beginning-of-defun re-search-backward "^\n" 1 t zmacs-activate-region] 4 "\
  76. Put mark at end of this defun, point at beginning.
  77. The defun marked is the one that contains point or follows point." nil])
  78. (fset 'insert-parentheses #[(arg) "½ä┴┬wêhz├>½â─cê┼cêè½å╞╟!!ê╚cêgz╔>¡é─c)ç" [arg "     " nil (119 95 41) " " 40 forward-sexp prefix-numeric-value 41 (119 95 40)] 3 "\
  79. Put parentheses around next ARG sexps.  Leave point after open-paren.
  80. No argument is equivalent to zero: just insert () and leave point between." "P"])
  81. (fset 'move-past-close-and-reindent #[nil "└┴!ê┬uêè`─ ê` U*½à┼ ê¬o┴uê╞ ç" [up-list 1 -1 before-paren back-to-indentation delete-indentation newline-and-indent] 2 "\
  82. Move past next `)', delete indentation before it, then indent after it." nil])
  83. (fset 'lisp-complete-symbol #[nil "`┴ ├Äè ½ä┼ !ê╞╟!êgz╚U½à╟uê¬u`*ë    {\n    Sf╦=½â╠¬ü═╧\n#ë╥=«φ¼è╙╘\n\"ê╒ ¬▀\nÿ¼è    |êc¬╬╙╓!ê╫\n#╠=¼¡┘½á╠█@!!½ç@▄D¬â@BAë¼`ƒ)▌É▐!æê)╙▀α\".ç" [end syntax-table buffer-syntax ((set-syntax-table buffer-syntax)) lisp-mode-syntax-table set-syntax-table backward-sexp 1 39 beg pattern 40 fboundp #[(sym) "└    !«ê┬    !«â├    !ç" [boundp sym fboundp symbol-plist] 2] predicate try-completion obarray completion t message "Can't find completion for \"%s\"" ding "Making completion list..." all-completions list nil new intern " <f>" "*Help*" display-completion-list "Making completion list...%s" "done"] 5 "\
  84. Perform completion on Lisp symbol preceding point.
  85. That symbol is compared against the symbols that exist
  86. and any additional characters determined by what is there
  87. are inserted.
  88. If the symbol starts just after an open-parenthesis,
  89. only symbols with function definitions are considered.
  90. Otherwise, all symbols with function definitions, values
  91. or properties are considered." nil])
  92.