aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2019-11-26 09:04:12 -0500
committerStefan Monnier2019-11-26 09:05:36 -0500
commit52eca2d3bdef293e9f5d64aa2b9ca36f1e00e817 (patch)
treeb5297b9feada7153bfc07a1a04c115201cee40a5
parente495dbea7035bcb1f26ed82f0d56a5abc90974fa (diff)
downloademacs-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.el6
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.