;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May 8 18:05:47 1993 ;;; from file /home/fsf/rms/e19/lisp/asm-mode.el ;;; emacs version 19.5.9. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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 concat "^" asm-flush-left-empty-comment-pattern comment-end "" comment-column 32 auto-fill-mode 1 " " fill-prefix asm-mode-hook] 6 "\ 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 "ŠÀÁ!ˆÂÃ!ƒÄ ˆ)ÅcˆÆ ‡" [forward-line 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 "ÀÁMˆÂÃM‡" [asm-line-matches #[(pattern &optional withcomment) "ŠÀÁ!ˆÂ !)‡" [forward-line 0 looking-at pattern] 2] asm-pop-comment-level #[nil "À ˆÁ ˆh\nUƒÃÄ!ˆ‚Á ˆn?…\"ÅÆ!ˆÇÄ!‡" [end-of-line delete-horizontal-space asm-comment-char delete-backward-char 1 forward-line 0 open-line] 2]] 2) (defalias 'asm-comment #[nil "ÀÁ!ƒ ˆÃ ˆ cˆ cˆ‚`ÀÆÇ \"!ƒ$È ˆ‚`À !ƒ1 cˆ‚`À\n!ƒGË ˆ cˆ cˆ cˆ‚`À !ƒ]Ë ˆÃ ˆ cˆ cˆ‚` cˆÍ ‡" [asm-line-matches "^[ ]*$" delete-horizontal-space tab-to-tab-stop asm-comment-char comment-start format "^[^%c]+$" indent-for-comment asm-flush-left-empty-comment-pattern asm-code-level-empty-comment-pattern asm-pop-comment-level asm-inline-empty-comment-pattern end-of-line] 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])