;ELC ;;; compiled by @fidelio on Sat Jun 04 17:50:58 1994 ;;; from file j:/tmp/25/emacs-19/lisp/emx-funcs.el ;;; emacs version 19.25. ;;; bytecomp version FSF 2.10 ;;; 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 "`j:/tmp/25/emacs-19/lisp/emx-funcs.el' was compiled for Emacs 19")) (byte-code "!ʼn%" [provide emx-funcs autoload find-tag-tag "etags" nil] 6) (autoload (quote cmd) "emx-cmd" "\ Run CMD.EXE with I/O through buffer *cmd*." t nil) (defalias 'emx-forward-to-word #[(arg) "\f$ db" [re-search-forward "\\W\\b" nil t arg] 5 "\ Move forward until encountering the beginning of a word. With argument, do this that many times." "p"]) (defalias 'emx-backward-to-word #[(arg) " $ƕbeb" [backward-char re-search-backward "\\W\\b" nil t arg 0] 5 "\ Move backward until encountering the beginning of a word. With argument, do this that many times." "p"]) (defalias 'emx-beginning-of-buffer #[nil "eb" [] 1 "\ Move to the beginning of the buffer without setting mark." nil]) (defalias 'emx-end-of-buffer #[nil "db" [] 1 "\ Move to end of the buffer without setting mark." nil]) (defalias 'emx-scroll-line-up #[(arg) " !" [scroll-up arg] 2 "\ Scroll up by one line. With argument, do this that many times." "p"]) (defalias 'emx-scroll-line-down #[(arg) " !" [scroll-down arg] 2 "\ Scroll down by one line. With argument, do this that many times." "p"]) (defalias 'emx-kill-left-line #[nil "!" [kill-line 0] 2 "\ Kill from the beginning of the line to point." "*"]) (defalias 'emx-kill-word #[(arg) "`\n!`\")" [b emx-forward-to-word arg kill-region] 3 "\ Delete characters until encountering the beginning of a word. With argument, do this that many times." "*p"]) (defalias 'emx-copy-line-as-kill #[(arg) "`y` y\n`\")b)" [s 0 b arg copy-region-as-kill] 3 "\ Copy current line as kill. With argument, copy that many lines starting with the current line." "p"]) (defalias 'emx-dup-line #[(arg) "`y`yh=c\f`\"V- S\nb*" [identity last-command s 0 b nil 10 copy-region-as-kill arg yank] 4 "\ Duplicate current line. Set mark to the beginning of the new line. With argument, do this that many times." "*p"]) (defalias 'emx-copy-region #[(arg) "` \"\nV \nS" [copy-region-as-kill mark arg 0 yank] 4 "\ Copy region to point. With argument, do this that many times." "*p"]) (defalias 'emx-yank-line #[(&optional arg) "y\n! ` ]b!!\f!b) " [0 yank arg point-marker pos mark looking-at "^" insert-before-markers "\n" marker-position this-command] 2 "\ Yank as line: Move to beginning of current line and yank. Insert newline if not present. The argument is passed to the yank command." "*P"]) (defalias 'emx-match-paren #[nil "!!!!u!" [looking-at "\\s(" forward-list 1 backward-char "\\s)" backward-list] 2 "\ Go to the matching parenthesis if on parenthesis. This function uses the syntax table." nil]) (defalias 'emx-toggle-case-fold-search #[nil "\n?\"" [message "case-fold-search is now %s" case-fold-search] 4 "\ Toggle and display the case-fold-search variable." nil]) (defvar emx-search-string nil "\ Search string for emx-search-forward and emx-search-backward.") (defvar emx-search-re nil "\ Non-nil means use regular expression for emx-search-forward and -backward.") (defvar emx-search-goto-first-line nil "\ *Non-nil means display match at the top of the window.") (defalias 'emx-search-forward #[(&optional arg) " #" [emx-search-fb arg search-forward re-search-forward] 4 "\ Search forward for a string. If prefixed by \\[universal-argument], ask for search string. If prefixed by \\[universal-argument] \\[universal-argument], use regular expression." "P"]) (defalias 'emx-search-backward #[(&optional arg) " #" [emx-search-fb arg search-backward re-search-backward] 4 "\ Search backward for a string. If prefixed by \\[universal-argument], ask for search string. If prefixed by \\[universal-argument] \\[universal-argument], use regular expression." "P"]) (defalias 'emx-search-fb #[(arg fun re-fun) " %<@@Y !ł\" \" .0 ! ;!" [arg emx-search-string 16 emx-search-re read-from-minibuffer "Re-Search: " "Search: " re-fun fun emx-search-goto-first-line recenter 0] 3 "\ Search forward or backward for a string. If the first argument is nil, ask for the string. The second argument is search-forward or search-backward. The third argument is re-search-forward or re-search-backward. See also the documentation of the emx-search-goto-first-line variable."]) (defalias 'emx-search-forward-at-point #[nil "! " [find-tag-tag "Search forward: " emx-search-string nil emx-search-re emx-search-forward] 2 "\ Search forward for name around or before point." nil]) (defalias 'emx-search-backward-at-point #[nil "! " [find-tag-tag "Search backward: " emx-search-string nil emx-search-re emx-search-backward] 2 "\ Search backward for name around or before point." nil]) (defalias 'emx-search-forward-region #[(start end) " {  " [start end emx-search-string current-prefix-arg emx-search-re emx-search-forward] 2 "\ Search forward for string given by region. With prefix arg, use regular expression." "r"]) (defalias 'emx-search-backward-region #[(start end) " { `bȏ)" [start end emx-search-string current-prefix-arg emx-search-re pos err (emx-search-backward) ((error (byte-code "b\n@\nA\"" [pos signal err] 3)))] 3 "\ Search backward for string given by region. With prefix arg, use regular expression." "r"]) (defalias 'emx-buffer-file-name #[nil "\n\"" [message "%s" buffer-file-name "Not visiting a file"] 3 "\ Display the name of the file visited in current buffer." nil]) (defalias 'emx-extract-file-name #[(at-point) " `U!e#o#eUe#!IoI`Sb!B`U`\\UoR`U`T\nb!aȕ\nr r \nVr\n {+" [nil end start at-point looking-at "[][- ()<>\"|;=*?]" re-search-backward "[^][- :()<>\"|;=*?]" 0 "[][- :()<>\"|;=*?]" ":" "[A-Za-z]:" 2 "\\([A-Za-z]:\\|\\)[^][- :()<>\"|;=*?]*"] 4 "\ Return the file name around or before point. If AT-POINT is not nil, the file names starts at point, that is, characters before point are ignored."]) (defalias 'emx-find-file-at-point #[(arg) "\n!!" [find-file emx-extract-file-name arg] 3 "\ Find file whose name is around or before point. With prefix argument find file whose name starts at point." "P"]) (defalias 'emx-find-file-region #[(start end) " \n{!" [find-file start end] 3 "\ Find file whose name is given by region." "r"]) (defalias 'emx-fill-paragraph #[(arg) "!ye#!)u`d#n9!  b!˕b!i `y`\nu\nU?g\n\"yU`\f!W!i\nV`\ni[\\\\`|ii\nWi\niZ\"i \f!# \n\\|`\f!#." [nil indent-tabs-mode column join end start fill-prefix looking-at "^\n" -1 re-search-backward 0 re-search-forward "^$" newline 1 point-marker "^[ ]*[^ \n]*\\( \\| \\)" "[ ]*" split-line make-string 32 marker-position backward-to-indentation insert-char fill-region-as-paragraph arg] 6 "\ Fill paragraph at or before point using em's notion of a paragraph. Prefix arg means justify as well. Paragraphs are separated by blank lines. The indentation of the first line is used for indenting the entire paragraph. If there are two consecutive blanks (or a tab) in the first line of the paragraphs, everything to the left of these blanks (or the tab) is left as-is and the paragraph is indented to the first non-blank character after the first two consecutive blanks of the first line." "*P"]) (defvar emx-add-number 0 "\ The number used by the emx-add-number command.") (defvar emx-add-number-adjust nil "\ *Non-nil if emx-add-number should adjust columns. This is done by adding or removing blanks if the length of the number has changed.") (defalias 'emx-add-number #[(arg) "!\nU!!\nU?\n!" [arg prefix-numeric-value emx-add-number 0 string-to-int read-from-minibuffer "Number to add: " emx-add-number-2] 3 "\ Add a constant to the decimal number at point. With prefix arg, add that constant. Otherwise add previously used constant. If there is no previous constant, ask for the constant. To make emx-add-number ask for a number, use a prefix arg of zero (M-0). The constant is stored in the emx-add-number variable. If emx-add-number-adjust is non-nil, blanks are added or removed to keep columns aligned if the length of the number in the buffer has changed by adding the constant. This command is useful for moving controls by adding to coordinates in .rc files." "*P"]) (defalias 'emx-add-number-2 #[(number) "!!ɕx`hU'hU*\fS\f {!\\!\f |\fb\nc\fbr \fZ\nGZV[ \"r WrhUr! T\\," [nil diff str end start looking-at "[ ]*\\([-+]\\|\\)[0-9]+" error "No number at point" 0 "0-9" 45 43 int-to-string number string-to-int emx-add-number-adjust insert-char 32 backward-delete-char 1] 6 "\ Add NUMBER to the number at point."]) (defalias 'emx-toggle-debug-on-error #[nil "\n?\"" [message "debug-on-error is now %s" debug-on-error] 4 "\ Toggle and display the debug-on-error variable." nil]) (defalias 'emx-toggle-truncate-lines #[nil "\n?\" " [message "truncate-lines is now %s" truncate-lines recenter] 4 "\ Toggle and display the truncate-lines variable." nil]) (define-prefix-command (quote emx-function-keys)) (defalias 'emx-function-key #[(code event) " !\f#" [define-key emx-function-keys vector code event] 4 "\ Define a PC function key. CODE is the scan code, EVENT is the event for that key (a vector)."]) (byte-code " #\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"@\"āAB\"āCD\"āEF\"āGH\"āIJ\"āKL\"āMN\"āOP\"āQR\"āST\"āUV\"āWX\"āYZ\"ā[\\\"ā]^\"ā_`\"āab\"ācd\"āef\"āgh\"āij\"ākl\"āmn\"āop\"āqr\"āst\"āuv\"āwx\"āyz\"ā{|\"ā}~\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā \n\"ā \f\"ā \"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā\"ā \"ā!\"\"ā#$\"ā%&\"ā'(\"ā)*\"" [define-key function-key-map "" emx-function-keys emx-function-key 1 [A-ESC] 2 [C-space] 3 [4194354] 4 [S-insert] 5 [S-delete] 14 [A-BS] 15 [S-backtab] 16 [262257] 17 [262263] 18 [262245] 19 [262258] 20 [262260] 21 [262265] 22 [262261] 23 [262249] 24 [262255] 25 [262256] 26 [262235] 27 [262237] 28 [A-RET] 30 [262241] 31 [262259] 32 [262244] 33 [262246] 34 [262247] 35 [262248] 36 [262250] 37 [262251] 38 [262252] 39 [262203] 40 [262240] 43 [262236] 44 [262266] 45 [262264] 46 [262243] 47 [262262] 48 [262242] 49 [262254] 50 [262253] 51 [262188] 52 [262190] 53 [262191] 55 [A-kp-*] 57 [A-SPACE] 59 [f1] 60 [f2] 61 [f3] 62 [f4] 63 [f5] 64 [f6] 65 [f7] 66 [f8] 67 [f9] 68 [f10] 71 [home] 72 [up] 73 [pageup] 74 [A-kp--] 75 [left] 76 [center] 77 [right] 78 [A-kp-+] 79 [end] 80 [down] 81 [pagedown] 82 [insert] 83 [delete] 84 [S-f1] 85 [S-f2] 86 [S-f3] 87 [S-f4] 88 [S-f5] 89 [S-f6] 90 [S-f7] 91 [S-f8] 92 [S-f9] 93 [S-f10] 94 [C-f1] 95 [C-f2] 96 [C-f3] 97 [C-f4] 98 [C-f5] 99 [C-f6] 100 [C-f7] 101 [C-f8] 102 [C-f9] 103 [C-f10] 104 [A-f1] 105 [A-f2] 106 [A-f3] 107 [A-f4] 108 [A-f5] 109 [A-f6] 110 [A-f7] 111 [A-f8] 112 [A-f9] 113 [A-f10] 114 [printscrn] 115 [C-left] 116 [C-right] 117 [C-end] 118 [C-pagedown] 119 [C-home] 120 [262193] 121 [262194] 122 [262195] 123 [262196] 124 [262197] 125 [262198] 126 [262199] 127 [262200] 128 [262201] 129 [262192] 130 [262189] 131 [262205] 132 [C-pageup] 133 [f11] 134 [f12] 135 [S-f11] 136 [S-f12] 137 [C-f11] 138 [C-f12] 139 [A-f11] 140 [A-f12] 141 [C-up] 142 [C-kp--] 143 [C-center] 144 [C-kp-+] 145 [C-down] 146 [C-insert] 147 [C-delete] 148 [C-TAB] 149 [C-kp-/] 150 [C-kp-*] 151 [A-home] 152 [A-up] 153 [A-pageup] 155 [A-left] 157 [A-right] 159 [A-end] 160 [A-down] 161 [A-pagedown] 162 [A-insert] 163 [A-delete] 164 [A-kp-/] 165 [A-TAB] 166 [A-enter]] 4)