Monday, April 9, 2007

EMACS HOOKS FOR SWITCHING HEADER TO PROPER MODE


;; C-HOOK FOR SWITCHING HEADER TO PROPER MODE
(defun u:objc-h-match ()
(and (string-match "\\.[hH]$" (buffer-file-name))
(string-match "^\\(@\\|#import\\)" (buffer-string))))

(defun u:c++-h-match ()
(and (string-match "\\.[hH]$" (buffer-file-name))
(string-match "^\s*\\(class\s*.*\\(\s*:\s*public\\|protected\\|private\\)?\\)\\|\\(public\\|protected\\|private\\):\\|\\\\|\\"
(buffer-string))))

(push '(u:objc-h-match . objc-mode) magic-mode-alist)
(push '(u:c++-h-match . c++-mode) magic-mode-alist)

No comments: