equal
deleted
inserted
replaced
2026 (mapc |
2026 (mapc |
2027 (lambda (pair) |
2027 (lambda (pair) |
2028 (if (eq (cdr pair) 'perl-mode) |
2028 (if (eq (cdr pair) 'perl-mode) |
2029 (setcdr pair 'cperl-mode))) |
2029 (setcdr pair 'cperl-mode))) |
2030 (append auto-mode-alist interpreter-mode-alist)) |
2030 (append auto-mode-alist interpreter-mode-alist)) |
|
2031 ;; Don't show all man page. I set man switches to "-a"... |
|
2032 (add-hook |
|
2033 'cperl-mode-hook |
|
2034 '(lambda () |
|
2035 (make-local-variable 'Man-switches) |
|
2036 (setq Man-switches nil))) |
2031 |
2037 |
2032 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2038 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2033 (message "SML, Standard ML") |
2039 (message "SML, Standard ML") |
2034 |
2040 |
2035 (eval-after-load 'sml |
2041 (eval-after-load 'sml |