-Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect.
-"
- (interactive)
- (kill-all-local-variables)
- (make-local-variable 'font-lock-defaults)
- (setq font-lock-defaults '((ps-mode-font-lock-keywords
- ps-mode-font-lock-keywords-1
- ps-mode-font-lock-keywords-2
- ps-mode-font-lock-keywords-3)
- t)
- major-mode 'ps-mode
- mode-name "PostScript")
- (use-local-map ps-mode-map)
- (set-syntax-table ps-mode-syntax-table)
+Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect."
+ (set (make-local-variable 'font-lock-defaults)
+ '((ps-mode-font-lock-keywords
+ ps-mode-font-lock-keywords-1
+ ps-mode-font-lock-keywords-2
+ ps-mode-font-lock-keywords-3)
+ t))