;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri May 6 22:16:24 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/asm-mode.el ;;; emacs version 19.22.93.1. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/asm-mode.el' was compiled for Emacs 19")) (defvar asm-comment-char 59 "\ *The comment-start character assumed by Asm mode.") (defvar asm-mode-syntax-table nil "\ Syntax table used while in Asm mode.") (defvar asm-mode-abbrev-table nil "\ Abbrev table used while in Asm mode.") (define-abbrev-table (quote asm-mode-abbrev-table) nil) (defvar asm-mode-map nil "\ Keymap for Asm mode.") (byte-code "„%Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#ˆÂÉÊ#ˆÂËÊ#ˆÌÍ!„.Î ÌÏ!„7ÎÌÐ!„@η" [asm-mode-map make-sparse-keymap define-key ";" asm-comment ":" asm-colon " " tab-to-tab-stop "\n" asm-newline " " boundp asm-code-level-empty-comment-pattern nil asm-flush-left-empty-comment-pattern asm-inline-empty-comment-pattern] 4) (defalias 'asm-mode #[nil "À ˆÁ\n!ˆÃÅÉÊ!ˆË \nÌ\n!ˆÍÎ!ˆÏÑ\n#ˆÏÒÓ\n#ˆÔÕ!!É×!ˆØPÉÙ!ˆÚPÛÜQÞ‰ßR ቉߰\")Éã!ˆä#Éå!ˆæ%ç(Íé!‡" [kill-all-local-variables use-local-map asm-mode-map "Assembler" mode-name asm-mode major-mode asm-mode-abbrev-table local-abbrev-table make-local-variable asm-mode-syntax-table make-syntax-table set-syntax-table run-hooks asm-mode-set-comment-hook modify-syntax-entry asm-comment-char "<" 10 ">" regexp-quote char-to-string cs comment-start " " comment-start-skip "+[ ]*" "^.+" "+ *$" asm-inline-empty-comment-pattern "^[ ]+" " *$" asm-code-level-empty-comment-pattern "^" asm-flush-left-empty-comment-pattern comment-end "" comment-column 32 " " fill-prefix asm-mode-hook] 5 "\ Major mode for editing typical assembler code. Features a private abbrev table and the following bindings: \\[asm-colon] outdent a preceding label, tab to next tab stop. \\[tab-to-tab-stop] tab to next tab stop. \\[asm-newline] newline, then tab to next tab stop. \\[asm-comment] smart placement of assembler comments. The character used for making comments is set by the variable `asm-comment-char' (which defaults to `?;'). Alternatively, you may set this variable in `asm-set-comment-hook', which is called near the beginning of mode initialization. Turning on Asm mode runs the hook `asm-mode-hook' at the end of initialization. Special commands: \\{asm-mode-map} " nil]) (defalias 'asm-colon #[nil "ŠÀyˆÁÂ!ƒ à ˆ)ÄcˆÅ ‡" [0 looking-at "[ ]+\\(\\sw\\|\\s_\\)+$" delete-horizontal-space ":" tab-to-tab-stop] 2 "\ Insert a colon; if it follows a label, delete the label's indentation." nil]) (defalias 'asm-newline #[nil "lƒÀ ˆÁcˆÂ ‡" [delete-horizontal-space "\n" tab-to-tab-stop] 1 "\ Insert LFD + fill-prefix, to bring us back to code-indent level." nil]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [defalias asm-line-matches #[(pattern &optional withcomment) "ŠÀyˆÁ\n!)‡" [0 looking-at pattern] 2] asm-pop-comment-level #[nil "ÀˆÁ ˆh\nUƒÃÄ!ˆ‚Á ˆn?…!ÅyˆÆÄ!‡" [nil delete-horizontal-space asm-comment-char delete-backward-char 1 0 open-line] 2]] 3) (defalias 'asm-comment #[nil "ÀÁ!ƒ ˆÃ ˆ\f ±ˆ‚[ÀÆÇ\f\"!ƒ#È ˆ‚[À !ƒ0\fcˆ‚[À\n!ƒCË ˆ\f‰ ±ˆ‚[À\f!ƒXË ˆÃ ˆ\f ±ˆ‚[\fcˆÍ‡" [asm-line-matches "^[ ]*$" delete-horizontal-space tab-to-tab-stop asm-comment-char comment-start format "^[^%c\n]+$" indent-for-comment asm-flush-left-empty-comment-pattern asm-code-level-empty-comment-pattern asm-pop-comment-level asm-inline-empty-comment-pattern nil] 4 "\ Convert an empty comment to a `larger' kind, or start a new one. These are the known comment classes: 1 -- comment to the right of the code (at the comment-column) 2 -- comment on its own line, indented like code 3 -- comment on its own line, beginning at the left-most column. Suggested usage: while writing your code, trigger asm-comment repeatedly until you are satisfied with the kind of comment." nil])