mpn/lisp/gmpasm-mode.el

1 ;;; gmpasm-mode.el -- GNU MP asm and m4 editing mode.
35 ;; gmpasm-mode is a major mode for editing m4 processed assembler code and
36 ;; m4 macro files in GMP.  It's similar to m4-mode, but has a number of
43 ;; To make M-x gmpasm-mode available, put gmpasm-mode.el somewhere in your
46 ;;	(autoload 'gmpasm-mode "gmpasm-mode" nil t)
48 ;; To use gmpasm-mode automatically on all .asm and .m4 files, put the
51 ;;	(add-to-list 'auto-mode-alist '("\\.asm\\'" . gmpasm-mode))
52 ;;	(add-to-list 'auto-mode-alist '("\\.m4\\'" . gmpasm-mode))
54 ;; To have gmpasm-mode only on gmp files, try instead something like the
58 ;;	(add-to-list 'auto-mode-alist
59 ;;	             '("/gmp.*/.*\\.\\(asm\\|m4\\)\\'" . gmpasm-mode))
81 (defcustom gmpasm-mode-hook nil
82   "*Hook called by `gmpasm-mode'."
88 See `gmpasm-mode' docstring for how this is used.
140 (defvar gmpasm-mode-map
152   "Keymap for `gmpasm-mode'.")
155 (defvar gmpasm-mode-syntax-table
157     ;; underscore left as a symbol char, like C mode
164   "Syntax table used in `gmpasm-mode'.
204   "`font-lock-keywords' for `gmpasm-mode'.
213 ;; Initialized if gmpasm-mode finds filladapt loaded.
214 (defvar gmpasm-filladapt-token-table nil
215   "Filladapt token table used in `gmpasm-mode'.")
216 (defvar gmpasm-filladapt-token-match-table nil
217   "Filladapt token match table used in `gmpasm-mode'.")
218 (defvar gmpasm-filladapt-token-conversion-table nil
219   "Filladapt token conversion table used in `gmpasm-mode'.")
223 (defun gmpasm-mode ()
224   "A major mode for editing GNU MP asm and m4 files.
226 \\{gmpasm-mode-map}
231 and do \\[gmpasm-mode] to reinitialize).
234 `comment-start' and dnl added.  If filladapt.el has been loaded it similarly
245 `gmpasm-mode-hook' is run after initializations are complete."
249   (setq major-mode 'gmpasm-mode
250         mode-name  "gmpasm")
251   (use-local-map gmpasm-mode-map)
252   (set-syntax-table gmpasm-mode-syntax-table)
326     (when (fboundp 'filladapt-mode)
327       (unless gmpasm-filladapt-token-table
328 	(setq gmpasm-filladapt-token-table
329 	      filladapt-token-table)
330 	(setq gmpasm-filladapt-token-match-table
331 	      filladapt-token-match-table)
332 	(setq gmpasm-filladapt-token-conversion-table
333 	      filladapt-token-conversion-table)
339 	(gmpasm-remove-from-list 'gmpasm-filladapt-token-table
345 	(gmpasm-remove-from-list 'gmpasm-filladapt-token-table
348 	(add-to-list 'gmpasm-filladapt-token-match-table
350 	(add-to-list 'gmpasm-filladapt-token-conversion-table
353       (set (make-local-variable 'filladapt-token-table)
354 	   gmpasm-filladapt-token-table)
355       (set (make-local-variable 'filladapt-token-match-table)
356 	   gmpasm-filladapt-token-match-table)
357       (set (make-local-variable 'filladapt-token-conversion-table)
358 	   gmpasm-filladapt-token-conversion-table)
361       ;; Comments in filladapt.el say filladapt-token-table must begin
363       (gmpasm-add-to-list-second 'filladapt-token-table
367   (run-hooks 'gmpasm-mode-hook))
383 (provide 'gmpasm-mode)
385 ;;; gmpasm-mode.el ends here