diff options
| author | Stefan Monnier | 2019-11-26 09:04:12 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2019-11-26 09:05:36 -0500 |
| commit | 52eca2d3bdef293e9f5d64aa2b9ca36f1e00e817 (patch) | |
| tree | b5297b9feada7153bfc07a1a04c115201cee40a5 | |
| parent | e495dbea7035bcb1f26ed82f0d56a5abc90974fa (diff) | |
| download | emacs-52eca2d3bdef293e9f5d64aa2b9ca36f1e00e817.tar.gz emacs-52eca2d3bdef293e9f5d64aa2b9ca36f1e00e817.zip | |
* lisp/progmodes/asm-mode.el (asm-mode-map): Obey electric-indent-mode
| -rw-r--r-- | lisp/progmodes/asm-mode.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/progmodes/asm-mode.el b/lisp/progmodes/asm-mode.el index 017a5b5bace..04ef0430671 100644 --- a/lisp/progmodes/asm-mode.el +++ b/lisp/progmodes/asm-mode.el | |||
| @@ -73,8 +73,6 @@ | |||
| 73 | ;; Note that the comment character isn't set up until asm-mode is called. | 73 | ;; Note that the comment character isn't set up until asm-mode is called. |
| 74 | (define-key map ":" 'asm-colon) | 74 | (define-key map ":" 'asm-colon) |
| 75 | (define-key map "\C-c;" 'comment-region) | 75 | (define-key map "\C-c;" 'comment-region) |
| 76 | (define-key map "\C-j" 'newline-and-indent) | ||
| 77 | (define-key map "\C-m" 'newline-and-indent) | ||
| 78 | (define-key map [menu-bar asm-mode] (cons "Asm" (make-sparse-keymap))) | 76 | (define-key map [menu-bar asm-mode] (cons "Asm" (make-sparse-keymap))) |
| 79 | (define-key map [menu-bar asm-mode comment-region] | 77 | (define-key map [menu-bar asm-mode comment-region] |
| 80 | '(menu-item "Comment Region" comment-region | 78 | '(menu-item "Comment Region" comment-region |
| @@ -135,7 +133,7 @@ Special commands: | |||
| 135 | ;; Make our own local child of asm-mode-map | 133 | ;; Make our own local child of asm-mode-map |
| 136 | ;; so we can define our own comment character. | 134 | ;; so we can define our own comment character. |
| 137 | (use-local-map (nconc (make-sparse-keymap) asm-mode-map)) | 135 | (use-local-map (nconc (make-sparse-keymap) asm-mode-map)) |
| 138 | (local-set-key (vector asm-comment-char) 'asm-comment) | 136 | (local-set-key (vector asm-comment-char) #'asm-comment) |
| 139 | (set-syntax-table (make-syntax-table asm-mode-syntax-table)) | 137 | (set-syntax-table (make-syntax-table asm-mode-syntax-table)) |
| 140 | (modify-syntax-entry asm-comment-char "< b") | 138 | (modify-syntax-entry asm-comment-char "< b") |
| 141 | 139 | ||
| @@ -185,7 +183,7 @@ Special commands: | |||
| 185 | (delete-horizontal-space) | 183 | (delete-horizontal-space) |
| 186 | (tab-to-tab-stop)))) | 184 | (tab-to-tab-stop)))) |
| 187 | 185 | ||
| 188 | (define-obsolete-function-alias 'asm-newline 'newline-and-indent "27.1") | 186 | (define-obsolete-function-alias 'asm-newline #'newline-and-indent "27.1") |
| 189 | 187 | ||
| 190 | (defun asm-comment () | 188 | (defun asm-comment () |
| 191 | "Convert an empty comment to a `larger' kind, or start a new one. | 189 | "Convert an empty comment to a `larger' kind, or start a new one. |