for the non lisp hackers – this sets some c mode options depending on the name of the path to the source file.<\/p>\n
;; linux kernel style (setq my-c-mode-common-hook '(lambda () ;; predicates to check (add-hook 'my-style-selective-mode-hook (add-hook 'my-style-selective-mode-hook ;; default hook ;; find which hook to run depending on predicate ;; Add the selective hook to the c-mode-common-hook for the non lisp hackers – this sets some c mode options depending on the name of the path to the source file. ;; run this for mysql source (defun mysql-c-mode-common-hook () (setq indent-tabs-mode nil)) ;; linux kernel style (defun … Continue reading
\n;; run this for mysql source
\n(defun mysql-c-mode-common-hook () (setq indent-tabs-mode nil))<\/p>\n
\n(defun linux-c-mode-common-hook () linux-c-mode)<\/p>\n
\n\t\t\t\t (turn-on-font-lock)
\n\t\t\t\t (setq comment-column 48)
\n\t\t\t\t )
\n )<\/p>\n
\n(defvar my-style-selective-mode-hook nil)<\/p>\n
\n '((string-match \"MySQL\" (buffer-file-name)) . mysql-c-mode-common-hook)
\n)<\/p>\n
\n '((string-match \"linux\" (buffer-file-name)) . linux-c-mode-common-hook)
\n)<\/p>\n
\n(add-hook 'my-style-selective-mode-hook
\n\t '(t . my-c-mode-common-hook) t)<\/p>\n
\n(defun my-style-selective-mode-hook-function ()
\n \"Run each PREDICATE in `my-style-selective-mode-hook' to see if the
\nHOOK in the pair should be executed. If the PREDICATE evaluate to non
\nnil HOOK is executed and the rest of the hooks are ignored.\"
\n (let ((h my-style-selective-mode-hook))
\n (while (not (eval (caar h)))
\n (setq h (cdr h)))
\n (funcall (cdar h))))<\/p>\n
\n(add-hook 'c-mode-common-hook 'my-style-selective-mode-hook-function)
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"