;;; mixal-mode.el --- Major mode for the mix asm language.
-;; Copyright (C) 2003-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2003-2012 Free Software Foundation, Inc.
;; Author: Pieter E.J. Pareit <pieter.pareit@gmail.com>
;; Maintainer: Pieter E.J. Pareit <pieter.pareit@gmail.com>
(list
(let* ((completion-ignore-case t)
;; we already have a list, but it is not in the right format
- ;; transform it to a valid table so completition can use it
- (table (mapcar '(lambda (elm)
- (cons (symbol-name (car elm)) nil))
+ ;; transform it to a valid table so completion can use it
+ (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil))
mixal-operation-codes-alist))
;; prompt is different depending on we are close to a valid op-code
(have-default (assq (intern-soft (current-word))
(error "mixvm.el needs to be loaded to run `mixvm'")))
;;;###autoload
-(define-derived-mode mixal-mode fundamental-mode "mixal"
+(define-derived-mode mixal-mode prog-mode "mixal"
"Major mode for the mixal asm language."
(set (make-local-variable 'comment-start) "*")
(set (make-local-variable 'comment-start-skip) "^\\*[ \t]*")