steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Faces renamed for homogeneity.

db4
Jose A. Ortega Ruiz 2008-12-22 01:34:47 +01:00
parent 588dc002ce
commit ed38c1cb6d
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
misc/fuel/fuel-debug.el
View File

@ -37,7 +37,7 @@
:type 'boolean) :type 'boolean)
(fuel-font-lock--define-faces (fuel-font-lock--define-faces
fuel-debug-font-lock font-lock fuel-debug fuel-font-lock-debug font-lock fuel-debug
((error warning "highlighting errors") ((error warning "highlighting errors")
(line variable-name "line numbers in errors/warnings") (line variable-name "line numbers in errors/warnings")
(column variable-name "column numbers in errors/warnings") (column variable-name "column numbers in errors/warnings")
@ -67,14 +67,14 @@
(defconst fuel-debug--restart-regex "^:\\([0-9]+\\) \\(.+\\)") (defconst fuel-debug--restart-regex "^:\\([0-9]+\\) \\(.+\\)")
(defconst fuel-debug--font-lock-keywords (defconst fuel-debug--font-lock-keywords
`((,fuel-debug--error-file-regex . 'fuel-debug-font-lock-error) `((,fuel-debug--error-file-regex . 'fuel-font-lock-debug-error)
(,fuel-debug--error-line-regex 1 'fuel-debug-font-lock-line) (,fuel-debug--error-line-regex 1 'fuel-font-lock-debug-line)
(,fuel-debug--error-cont-regex 1 'fuel-debug-font-lock-column) (,fuel-debug--error-cont-regex 1 'fuel-font-lock-debug-column)
(,fuel-debug--restart-regex (1 'fuel-debug-font-lock-restart-number) (,fuel-debug--restart-regex (1 'fuel-font-lock-debug-restart-number)
(2 'fuel-debug-font-lock-restart-name)) (2 'fuel-font-lock-debug-restart-name))
(,fuel-debug--compiler-info-regex 1 'fuel-debug-font-lock-restart-number) (,fuel-debug--compiler-info-regex 1 'fuel-font-lock-debug-restart-number)
("^\\(Restarts?\\|Loading\\) .+$" . 'fuel-debug-font-lock-info) ("^\\(Restarts?\\|Loading\\) .+$" . 'fuel-font-lock-debug-info)
("^Error: " . 'fuel-debug-font-lock-error))) ("^Error: " . 'fuel-font-lock-debug-error)))
(defun fuel-debug--font-lock-setup () (defun fuel-debug--font-lock-setup ()
(set (make-local-variable 'font-lock-defaults) (set (make-local-variable 'font-lock-defaults)

5
misc/fuel/fuel-help.el
View File

@ -48,7 +48,7 @@
:type 'integer :type 'integer
:group 'fuel-help) :group 'fuel-help)
(fuel-font-lock--defface fuel-help-font-lock-headlines (fuel-font-lock--defface fuel-font-lock-help-headlines
'bold fuel-hep "headlines in help buffers") 'bold fuel-hep "headlines in help buffers")
@ -152,7 +152,7 @@
(defconst fuel-help--font-lock-keywords (defconst fuel-help--font-lock-keywords
`(,@fuel-font-lock--font-lock-keywords `(,@fuel-font-lock--font-lock-keywords
(,fuel-help--headlines-regexp . 'fuel-help-font-lock-headlines))) (,fuel-help--headlines-regexp . 'fuel-font-lock-help-headlines)))
@ -219,6 +219,7 @@ buffer."
(define-key map [(backtab)] 'fuel-help-previous-headline) (define-key map [(backtab)] 'fuel-help-previous-headline)
(define-key map (kbd "SPC") 'scroll-up) (define-key map (kbd "SPC") 'scroll-up)
(define-key map (kbd "S-SPC") 'scroll-down) (define-key map (kbd "S-SPC") 'scroll-down)
(define-key map "\M-." 'fuel-edit-word-at-point)
(define-key map "\C-cz" 'run-factor) (define-key map "\C-cz" 'run-factor)
(define-key map "\C-c\C-z" 'run-factor) (define-key map "\C-c\C-z" 'run-factor)
map)) map))