lib/emacs/autoconf-mode.el

0 ;;; autoconf-mode.el --- autoconf code editing commands for Emacs
24 ;; A major mode for editing autoconf input (like configure.in).
29 ;;  (autoload 'autoconf-mode "autoconf-mode"
30 ;;            "Major mode for editing autoconf files." t)
32 ;;        (cons '("\\.ac\\'\\|configure\\.in\\'" . autoconf-mode)
38 (defvar autoconf-font-lock-keywords
46 (defvar autoconf-mode-syntax-table nil
47   "syntax table used in autoconf mode")
48 (setq autoconf-mode-syntax-table (make-syntax-table))
49 (modify-syntax-entry ?\" "\""  autoconf-mode-syntax-table)
50 ;;(modify-syntax-entry ?\' "\""  autoconf-mode-syntax-table)
51 (modify-syntax-entry ?#  "<\n" autoconf-mode-syntax-table)
52 (modify-syntax-entry ?\n ">#"  autoconf-mode-syntax-table)
53 (modify-syntax-entry ?\( "()"   autoconf-mode-syntax-table)
54 (modify-syntax-entry ?\) ")("   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)
60 (defvar autoconf-mode-map
65 (defun autoconf-current-defun ()
75 (defun autoconf-mode ()
77 \\{autoconf-mode-map}
81   (use-local-map autoconf-mode-map)
84   (setq add-log-current-defun-function 'autoconf-current-defun)
92   (setq major-mode 'autoconf-mode)
94   (setq font-lock-defaults `(autoconf-font-lock-keywords nil))
95   (set-syntax-table autoconf-mode-syntax-table)
96   (run-hooks 'autoconf-mode-hook))
98 (provide 'autoconf-mode)
100 ;;; autoconf-mode.el ends here