Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7aefa445
Commit
7aefa445
authored
May 15, 2010
by
Stefan Monnier
Browse files
* progmodes/asm-mode.el (asm-mode): Use define-derived-mode.
parent
13973643
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
9 deletions
+4
-9
lisp/ChangeLog
lisp/ChangeLog
+1
-0
lisp/progmodes/asm-mode.el
lisp/progmodes/asm-mode.el
+3
-9
No files found.
lisp/ChangeLog
View file @
7aefa445
2010-05-15 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/asm-mode.el (asm-mode):
* progmodes/prolog.el (prolog-mode): Use define-derived-mode.
* pcomplete.el (pcomplete-completions-at-point): New function,
...
...
lisp/progmodes/asm-mode.el
View file @
7aefa445
...
...
@@ -109,7 +109,7 @@
"Additional expressions to highlight in Assembler mode."
)
;;;###autoload
(
def
un
asm-mode
()
(
def
ine-derived-mode
asm-mode
prog-mode
"Assembler"
"Major mode for editing typical assembler code.
Features a private abbrev table and the following bindings:
...
...
@@ -128,13 +128,8 @@ Turning on Asm mode runs the hook `asm-mode-hook' at the end of initialization.
Special commands:
\\{asm-mode-map}"
(
interactive
)
(
kill-all-local-variables
)
(
setq
mode-name
"Assembler"
)
(
setq
major-mode
'asm-mode
)
(
setq
local-abbrev-table
asm-mode-abbrev-table
)
(
make-local-variable
'font-lock-defaults
)
(
setq
font-lock-defaults
'
(
asm-font-lock-keywords
))
(
set
(
make-local-variable
'font-lock-defaults
)
'
(
asm-font-lock-keywords
))
(
set
(
make-local-variable
'indent-line-function
)
'asm-indent-line
)
;; Stay closer to the old TAB behavior (was tab-to-tab-stop).
(
set
(
make-local-variable
'tab-always-indent
)
nil
)
...
...
@@ -157,8 +152,7 @@ Special commands:
(
setq
comment-end-skip
"[ \t]*\\(\\s>\\|\\*+/\\)"
)
(
make-local-variable
'comment-end
)
(
setq
comment-end
""
)
(
setq
fill-prefix
"\t"
)
(
run-mode-hooks
'asm-mode-hook
))
(
setq
fill-prefix
"\t"
))
(
defun
asm-indent-line
()
"Auto-indent the current line."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment