[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100298: * progmodes/asm-mode.el (asm
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100298: * progmodes/asm-mode.el (asm-mode): Use define-derived-mode. |
Date: |
Sat, 15 May 2010 00:10:22 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100298
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2010-05-15 00:10:22 -0400
message:
* progmodes/asm-mode.el (asm-mode): Use define-derived-mode.
modified:
lisp/ChangeLog
lisp/progmodes/asm-mode.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-05-15 04:08:03 +0000
+++ b/lisp/ChangeLog 2010-05-15 04:10:22 +0000
@@ -1,5 +1,6 @@
2010-05-15 Stefan Monnier <address@hidden>
+ * progmodes/asm-mode.el (asm-mode):
* progmodes/prolog.el (prolog-mode): Use define-derived-mode.
* pcomplete.el (pcomplete-completions-at-point): New function,
=== modified file 'lisp/progmodes/asm-mode.el'
--- a/lisp/progmodes/asm-mode.el 2010-01-13 08:35:10 +0000
+++ b/lisp/progmodes/asm-mode.el 2010-05-15 04:10:22 +0000
@@ -109,7 +109,7 @@
"Additional expressions to highlight in Assembler mode.")
;;;###autoload
-(defun asm-mode ()
+(define-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 @@
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 @@
(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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100298: * progmodes/asm-mode.el (asm-mode): Use define-derived-mode.,
Stefan Monnier <=