lib/emacs/autoconf-mode.el

0 ;;; autoconf-mode.el --- autoconf code editing commands for Emacs
26 ;; A major mode for editing autoconf input (like configure.in).
31 ;;  (autoload 'autoconf-mode "autoconf-mode"
32 ;;            "Major mode for editing autoconf files." t)
34 ;;        (cons '("\\.ac\\'\\|configure\\.in\\'" . autoconf-mode)
40 (defvar autoconf-font-lock-keywords
48 (defvar autoconf-mode-syntax-table nil
49   "syntax table used in autoconf mode")
50 (setq autoconf-mode-syntax-table (make-syntax-table))
51 (modify-syntax-entry ?\" "\""  autoconf-mode-syntax-table)
52 ;;(modify-syntax-entry ?\' "\""  autoconf-mode-syntax-table)
53 (modify-syntax-entry ?#  "<\n" autoconf-mode-syntax-table)
54 (modify-syntax-entry ?\n ">#"  autoconf-mode-syntax-table)
55 (modify-syntax-entry ?\( "()"   autoconf-mode-syntax-table)
56 (modify-syntax-entry ?\) ")("   autoconf-mode-syntax-table)
57 (modify-syntax-entry ?\[ "(]"  autoconf-mode-syntax-table)
58 (modify-syntax-entry ?\] ")["  autoconf-mode-syntax-table)
59 (modify-syntax-entry ?*  "."   autoconf-mode-syntax-table)
60 (modify-syntax-entry ?_  "_"   autoconf-mode-syntax-table)
62 (defvar autoconf-mode-map
67 (defun autoconf-current-defun ()
77 (defun autoconf-mode ()
79 \\{autoconf-mode-map}
83   (use-local-map autoconf-mode-map)
86   (setq add-log-current-defun-function 'autoconf-current-defun)
94   (setq major-mode 'autoconf-mode)
96   (setq font-lock-defaults `(autoconf-font-lock-keywords nil))
97   (set-syntax-table autoconf-mode-syntax-table)
98   (run-hooks 'autoconf-mode-hook))
100 (provide 'autoconf-mode)
102 ;;; autoconf-mode.el ends here