/[anubis]/anubis/elisp/anubis-mode.el
ViewVC logotype

Diff of /anubis/elisp/anubis-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by gray, Fri Aug 8 20:47:47 2003 UTC revision 1.4 by gray, Fri Aug 8 22:21:15 2003 UTC
# Line 36  Line 36 
36    
37  ;; Customization:  ;; Customization:
38  ;;  To your .emacs or site-start add:  ;;  To your .emacs or site-start add:
39  ;;  (autoload 'anubis-mode "Anubis-Config")  ;;  (autoload 'anubis-mode "anubis-mode")
40  ;;  (setq auto-mode-alist (append auto-mode-alist  ;;  (setq auto-mode-alist (append auto-mode-alist
41  ;;                                '(("/.anubisrc$" . anubis-mode)  ;;                                '(("/.anubisrc$" . anubis-mode)
42  ;;                                  ("/anubisrc$" . anubis-mode))))  ;;                                  ("/anubisrc$" . anubis-mode))))
# Line 470  Line 470 
470    "Checks the syntax of the current Anubis RC buffer. Optional argument    "Checks the syntax of the current Anubis RC buffer. Optional argument
471  specifies the detail level (from 0 to 3)."  specifies the detail level (from 0 to 3)."
472    (interactive "p")    (interactive "p")
473    (let ((compile-command compile-command))    (compile (concat
474      (compile (concat              (if anubis-path anubis-path "anubis")
475                (if anubis-path anubis-path "anubis")              " --check="
476                " --check="              (number-to-string (or current-prefix-arg 0))
477                (number-to-string (or current-prefix-arg 0))              " --norc --relax --altrc "
478                " --norc --relax --altrc "              (buffer-file-name))))
                    (buffer-file-name)))))  
479    
480    
481    
# Line 491  Key bindings: Line 490  Key bindings:
490    (kill-all-local-variables)    (kill-all-local-variables)
491    (set-syntax-table anubis-mode-syntax-table)    (set-syntax-table anubis-mode-syntax-table)
492    (make-local-variable 'indent-line-function)    (make-local-variable 'indent-line-function)
493      (set (make-local-variable 'compile-command) "")
494    (setq major-mode 'anubis-mode    (setq major-mode 'anubis-mode
495          mode-name "Anubis-Config"          mode-name "Anubis-Config"
496          local-abbrev-table anubis-mode-abbrev-table          local-abbrev-table anubis-mode-abbrev-table
# Line 503  Key bindings: Line 503  Key bindings:
503    (setq font-lock-defaults    (setq font-lock-defaults
504          '((anubis-font-lock-keywords)          '((anubis-font-lock-keywords)
505            nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun            nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun
506            (font-lock-mark-block-function . mark-defun)))            (font-lock-mark-block-function . mark-defun))) )
   )  
507    
508  (require 'info)  (require 'info)
509  (provide 'anubis-mode)  (provide 'anubis-mode)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26