;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:13:11 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/asm-mode.el ;;; emacs version 19.28.90.69. ;;; 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")) #@51 *The comment-start character assumed by Asm mode. (defvar asm-comment-char 59 (#$ . -485)) #@38 Syntax table used while in Asm mode. (defvar asm-mode-syntax-table nil (#$ . 582)) #@38 Abbrev table used while in Asm mode. (defvar asm-mode-abbrev-table nil (#$ . 671)) (define-abbrev-table (quote asm-mode-abbrev-table) nil) #@22 Keymap for Asm mode. (defvar asm-mode-map nil (#$ . 816)) (byte-code "„Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#ˆÂÉÈ#ˆÁ‡" [asm-mode-map make-sparse-keymap define-key ":" asm-colon " " tab-to-tab-stop "\n" asm-newline " "] 4) #@56 Additional expressions to highlight in Assembler mode. (defconst asm-font-lock-keywords (quote (("^\\(\\(\\sw\\|\\s_\\)+\\)\\>:?[ ]*\\(\\sw+\\)?" (1 font-lock-function-name-face) (3 font-lock-keyword-face nil t)) ("^\\s +\\(\\(\\sw\\|\\s_\\)+\\)" 1 font-lock-keyword-face))) (#$ . 1030)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÂÅ B‡" [boundp asm-code-level-empty-comment-pattern nil current-load-list asm-flush-left-empty-comment-pattern asm-inline-empty-comment-pattern] 2) #@675 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-mode-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}  (defalias 'asm-mode #[nil "À ˆÁà ÇÈ!ˆÉÇÊ!ˆË \nÌ\n!ˆÍÎ!ˆÏÐ ¤!ˆÒÓ!Õ\"ˆÖ×\n#ˆÖØÙ\n#ˆÚÛ!!ÇÝ!ˆÞPÇß!ˆàPáâQ#ä‰åR&牉å°()Çé!ˆê)Çë!ˆì+í.Íï!‡" [kill-all-local-variables "Assembler" mode-name asm-mode major-mode asm-mode-abbrev-table local-abbrev-table make-local-variable font-lock-defaults (asm-font-lock-keywords) asm-mode-syntax-table make-syntax-table set-syntax-table run-hooks asm-mode-set-comment-hook use-local-map make-sparse-keymap asm-mode-map local-set-key vector asm-comment-char asm-comment modify-syntax-entry "<" 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 (#$ . 1519) nil]) #@72 Insert a colon; if it follows a label, delete the label's indentation. (defalias 'asm-colon #[nil "ŠÀyˆÁÂ!ƒ à ˆ)ÄcˆÅ ‡" [0 looking-at "[ ]+\\(\\sw\\|\\s_\\)+$" delete-horizontal-space ":" tab-to-tab-stop] 2 (#$ . 3066) nil]) #@66 Insert LFD + fill-prefix, to bring us back to code-indent level. (defalias 'asm-newline #[nil "lƒÀ ˆÁcˆÂ ‡" [delete-horizontal-space "\n" tab-to-tab-stop] 1 (#$ . 3299) nil]) (defalias 'asm-line-matches #[(pattern &optional withcomment) "ŠÀyˆÁ\n!)‡" [0 looking-at pattern] 2]) (defalias 'asm-pop-comment-level #[nil "ÀˆÁ ˆh\nUƒÃÄ!ˆ‚Á ˆn?…!ÅyˆÆÄ!‡" [nil delete-horizontal-space asm-comment-char delete-backward-char 1 0 open-line] 2]) #@414 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. (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 (#$ . 3748) nil])