Mercurial > emacs
comparison lisp/font-lock.el @ 92939:f0b6eb7a4cc3
* font-lock.el (featurep): Remove test, not useful anymore.
(facemenu-keymap): Move key binding ...
* facemenu.el (facemenu-keymap): ... here.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 14 Mar 2008 16:15:49 +0000 |
| parents | 9b6110ff87b2 |
| children | 41ee2cc9680d |
comparison
equal
deleted
inserted
replaced
| 92938:89f7b102ea85 | 92939:f0b6eb7a4cc3 |
|---|---|
| 1278 (save-excursion (forward-line (- lines)) (point)) | 1278 (save-excursion (forward-line (- lines)) (point)) |
| 1279 (save-excursion (forward-line lines) (point)))) | 1279 (save-excursion (forward-line lines) (point)))) |
| 1280 (funcall font-lock-mark-block-function) | 1280 (funcall font-lock-mark-block-function) |
| 1281 (font-lock-fontify-region (point) (mark))) | 1281 (font-lock-fontify-region (point) (mark))) |
| 1282 ((error quit) (message "Fontifying block...%s" error-data))))))) | 1282 ((error quit) (message "Fontifying block...%s" error-data))))))) |
| 1283 | |
| 1284 (unless (featurep 'facemenu) | |
| 1285 (error "facemenu must be loaded before font-lock")) | |
| 1286 (define-key facemenu-keymap "\M-o" 'font-lock-fontify-block) | |
| 1287 | 1283 |
| 1288 ;;; End of Fontification functions. | 1284 ;;; End of Fontification functions. |
| 1289 | 1285 |
| 1290 ;;; Additional text property functions. | 1286 ;;; Additional text property functions. |
| 1291 | 1287 |