home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / subr.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  11.1 KB  |  146 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:46:28 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/subr.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 kill-buffer-hook nil "\
  14. Function or functions to be called when a buffer is killed.
  15. The value of this variable may be buffer-local.
  16. The buffer about to be killed is current when this hook is run.")
  17. (fset 'generate-new-buffer #[(name) "└┴\n!!ç" [get-buffer-create generate-new-buffer-name name] 3 "\
  18. Create and return a buffer with a name based on NAME.
  19. Choose the buffer's name using `generate-new-buffer-name'."])
  20. (fset 'one-window-p #[(&optional nomini) "└ ┴└ \n¡ü┬\"=ç" [selected-window next-window nomini] 4 "\
  21. Returns non-nil if there is only one window.
  22. Optional arg NOMINI non-nil means don't count the minibuffer
  23. even if it is active."])
  24. (fset 'walk-windows #[(proc &optional minibuf all-screens) "└ ë├\n #\n!ê\n    =?¡é¬m*ç" [selected-window walk-windows-start walk-windows-current next-window minibuf all-screens proc] 5 "\
  25. Cycle through all visible windows, calling PROC for each one.
  26. PROC is called with a window as argument.
  27. Optional second arg MINIBUF t means count the minibuffer window
  28. even if not active.  If MINIBUF is neither t nor nil it means
  29. not to count the minibuffer even if it is active.
  30. Optional third arg ALL-SCREENS t means include all windows in all screens;
  31. otherwise cycle within the selected screen."])
  32. (fset 'read-quoted-char #[(&optional prompt) "└ë┴ ┼W½▀ └U┴½å╔╩\"ê╦ ½â┴ *\n½[═\nX½ó\n╬X½¥ ╧_\n═Z\\ T½B╔╨╤\n#ë!ê¬4 └V½î╥\n╙ \"╒ë¬$\n╒ë¬╓ ╫\"+ç" [0 nil char code count 3 help-form inhibit-quit prompt message "%s-" read-char quit-flag 48 55 8 format "%s %c" character-to-event allocate-event unread-command-event 259 logand 255] 6 "\
  33. Like `read-char', except that if the first character read is an octal
  34. digit, we read up to two more octal digits and return the character
  35. represented by the octal number consisting of those digits.
  36. Optional argument PROMPT specifies a string to use to prompt the user."])
  37. (fset 'error #[(&rest args) "└┴┬├ \"C\"ê¬u" [signal error apply format args] 5 "\
  38. Signal an error, making error message by passing all args to `format'."])
  39. (fset 'undefined #[nil "└ ç" [ding] 1 nil nil])
  40. (defun baud-rate nil "\
  41. Obsolete function returning the value of the `baud-rate' variable." baud-rate)
  42. (put 'undefined 'suppress-keymap t)
  43. (fset 'suppress-keymap #[(map &optional nodigits) "└┴\n\"ê «¬─┼╞\"╚    ╩╦#ê╠H═X¡ö╚    ╬#ê╠╠HTIê¬d)ç" [map-keymap #[(key binding) "┴=¡ç┬ ─!╞#ç" [binding self-insert-command define-key map vector key undefined] 4] global-map nodigits make-string 1 48 string define-key map "-" negative-argument 0 57 digit-argument] 4 "\
  44. Make MAP override all normally self-inserting keys to be undefined.
  45. Normally, as an exception, digits and minus-sign are set to make prefix args,
  46. but optional second arg NODIGITS non-nil treats them like other chars."])
  47. (fset 'substitute-key-definition #[(olddef newdef keymap) "└┴\n\"ç" [map-keymap #[(key binding) "    =¡à┬ #ç" [binding olddef define-key keymap key newdef] 4] keymap] 3 "\
  48. Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
  49. In other words, OLDDEF is replaced with NEWDEF where ever it appears.
  50. Prefix keymaps reached from KEYMAP are not checked recursively;
  51. perhaps they ought to be."])
  52. (fset 'save-match-data '(macro . #[(&rest body) "└┴┬├ B┼EEç" [let ((_match_data_ (match-data))) unwind-protect progn body (store-match-data _match_data_)] 5 "\
  53. Execute the BODY forms, restoring the global value of the match data."]))
  54. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mê╓╫Mê╪┘Mê┌█Mê▄▌Mê▐▀MêαßMêΓπMêΣσMêµτMêΦΘMêΩδMê∞φMêε∩Mê≡±KMê≥≤KMç" [ignore (lambda (&rest ignore)) make-syntax-table copy-syntax-table dot point dot-marker point-marker dot-min point-min dot-max point-max window-dot window-point set-window-dot set-window-point read-input read-string send-string process-send-string send-region process-send-region show-buffer set-window-buffer buffer-flush-undo buffer-disable-undo string= string-equal string< string-lessp mod % move-marker set-marker eql eq not null rplaca setcar rplacd setcdr beep ding indent-to-column indent-to backward-delete-char delete-backward-char search-forward-regexp re-search-forward search-backward-regexp re-search-backward] 2)
  55. (fset 'run-hooks #[(&rest hooklist) "¡¼@┬    !½£    J½ÿ    Jë<½ì @─=¼ç┼╞ \"ê¬â  ê))Aë¼U╟ç" [hooklist sym boundp value lambda mapcar funcall nil] 4 "\
  56. Takes hook names and runs each one in turn.  Major mode functions use this.
  57. Each argument should be a symbol, a hook variable.
  58. These symbols are processed in the order specified.
  59. If a hook symbol has a non-nil value, that value may be a function
  60. or a list of functions to be called to run the hook.
  61. If the value is a function, it is called with no arguments.
  62. If it is a list, the elements are called, in order, with no arguments."])
  63. (defconst run-hooks 'run-hooks "\
  64. Variable by which C primitives find the function `run-hooks'.
  65. Don't change it.")
  66. (fset 'add-hook #[(hook-var function &optional at-end) "└    !¼ä    ┬Lê    Jë<½å @─=½â C ¥?¡Å    ½å Cñ¬â BL)ç" [boundp hook-var nil old lambda function at-end] 4 "\
  67. Add a function to a hook.
  68. First argument HOOK-VAR (a symbol) is the name of a hook, second
  69.  argument FUNCTION is the function to add.
  70. Third (optional) argument AT-END means to add the function at the end
  71.  of the hook list instead of the beginning.  If the function is already
  72.  present, this has no effect.
  73. Returns nil if FUNCTION was already present in HOOK-VAR, else new
  74.  value of HOOK-VAR."])
  75. (fset 'remove-hook #[(hook-var function) "└┬ !¼â└¬ù Jë=½à└ë¬è    :¡å ┼     \"L)ç" [nil val boundp hook-var function delq] 4 "\
  76. Remove a function from a hook, if it is present.
  77. First argument HOOK-VAR (a symbol) is the name of a hook, second
  78.  argument FUNCTION is the function to remove (compared with `eq')."])
  79. (fset 'momentary-string-display #[(string pos &optional exit-char message) "¼é┴┬├  ┬╔Äè\nbê┬╦ !ê`)═«ü╬╧!\"ê╨╤ !╙!=«àë.ç" [exit-char 32 nil buffer-modified-p buffer-file-name insert-end name modified buffer-read-only ((byte-code "½åè    |ê)\n─!ç" [insert-end pos name buffer-file-name set-buffer-modified-p modified] 2)) pos insert-before-markers string message "Type %s to continue editing." single-key-description next-command-event allocate-event event event-to-character unread-command-event] 4 "\
  80. Momentarily display STRING in the buffer at POS.
  81. Display remains until next character is typed.
  82. If the char is EXIT-CHAR (optional third arg, default is SPC) it is swallowed;
  83. otherwise it is then available as input (as a command if nothing else).
  84. Display MESSAGE (optional fourth arg) in the echo area.
  85. If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."])
  86. (fset 'start-process-shell-command #[(name buffer &rest args) "┴=½ê┬├ $ç├ ╚╔╩╦╠#P%ç" [system-type vax-vms apply start-process name buffer args shell-file-name "-c" "exec " mapconcat identity " "] 10 "\
  87. Start a program in a subprocess.  Return the process object for it.
  88. Args are NAME BUFFER COMMAND &rest COMMAND-ARGS.
  89. NAME is name for process.  It is modified if necessary to make it unique.
  90. BUFFER is the buffer or (buffer-name) to associate with the process.
  91.  Process output goes at end of that buffer, unless you specify
  92.  an output stream or filter function to handle the output.
  93.  BUFFER may be also nil, meaning that this process is not associated
  94.  with any buffer
  95. Third arg is command name, the name of a shell command.
  96. Remaining arguments are the arguments for the command.
  97. Wildcards and redirection are handle as usual in the shell."])
  98. (fset 'user-original-login-name #[nil "└┴!«ç└┬!«é├ ç" [getenv "LOGNAME" "USER" user-login-name] 2 "\
  99. Return user's login name from original login.
  100. This tries to remain unaffected by `su', by looking in environment variables."])
  101. (fset 'redraw-mode-line #[(&optional all) "½åè┴ qê)┬├ !ç" [all other-buffer set-buffer-modified-p buffer-modified-p] 2 "\
  102. Force the mode-line of the current buffer to be redisplayed.
  103. With optional non-nil ALL then force then force redisplay of all mode-lines."])
  104. (fset 'force-mode-line-update 'redraw-mode-line)
  105. (fset 'local-key-binding #[(keys) "└ ë¡ä┬     \")ç" [current-local-map map lookup-key keys] 4 "\
  106. Return the binding for command KEYS in current local keymap only.
  107. KEYS is a string, a vector of events, or a vector of key-description lists
  108. as described in the documentation for the `define-key' function.
  109. The binding is probably a symbol with a function definition; see
  110. the documentation for `lookup-key' for more information."])
  111. (fset 'global-key-binding #[(keys) "└┴ \n\"ç" [lookup-key current-global-map keys] 3 "\
  112. Return the binding for command KEYS in current global keymap only.
  113. KEYS is a string or vector of events, a sequence of keystrokes.
  114. The binding is probably a symbol with a function definition; see
  115. the documentation for `lookup-key' for more information."])
  116. (fset 'global-set-key #[(keys function) "└┴ \n #ç" [define-key current-global-map keys function] 4 "\
  117. Give KEY a global binding as COMMAND.
  118. COMMAND is a symbol naming an interactively-callable function.
  119. KEYS is a string, a vector of events, or a vector of key-description lists
  120. as described in the documentation for the `define-key' function.
  121. Note that if KEY has a local binding in the current buffer
  122. that local binding will continue to shadow any global binding." "kSet key globally: \nCSet key %s to command: "])
  123. (fset 'local-set-key #[(keys function) "└ ¼à┴┬ !ê├└  #ç" [current-local-map use-local-map make-sparse-keymap define-key keys function] 4 "\
  124. Give KEY a local binding as COMMAND.
  125. COMMAND is a symbol naming an interactively-callable function.
  126. KEYS is a string, a vector of events, or a vector of key-description lists
  127. as described in the documentation for the `define-key' function.
  128. The binding goes in the current buffer's local map,
  129. which is shared with other buffers in the same major mode." "kSet key locally: \nCSet key %s locally to command: "])
  130. (fset 'global-unset-key #[(keys) "└    ┬\"ç" [global-set-key keys nil] 3 "\
  131. Remove global binding of KEY.
  132. KEYS is a string, a vector of events, or a vector of key-description lists
  133. as described in the documentation for the `define-key' function." "kUnset key globally: "])
  134. (fset 'local-unset-key #[(keys) "└ ¡å┴└ \n├#ç" [current-local-map define-key keys nil] 4 "\
  135. Remove local binding of KEY.
  136. KEYS is a string, a vector of events, or a vector of key-description lists
  137. as described in the documentation for the `define-key' function." "kUnset key locally: "])
  138. (fset 'define-prefix-command #[(name &optional mapvar) "└ ┬     \"ê     Mê ¼å     Lê¬ë ┼=¼ä     Lê )ç" [make-sparse-keymap map set-keymap-name name mapvar t] 3 "\
  139. Define COMMAND as a prefix command.
  140. A new sparse keymap is stored as COMMAND's function definition.
  141. If second optional argument MAPVAR is not specified,
  142.  COMMAND's value (as well as its function definition) is set to the keymap.
  143. If a second optional argument MAPVAR is given and is not `t',
  144.   the map is stored as its value.
  145. Regardless of MAPVAR, COMMAND's function-value is always set to the keymap."])
  146.