|
Lines 95-101
Link Here
|
| 95 |
|
95 |
|
| 96 |
(require 'font-lock) |
96 |
(require 'font-lock) |
| 97 |
(require 'thingatpt) |
97 |
(require 'thingatpt) |
| 98 |
(require 'executable) ;; executable-find |
98 |
|
|
|
99 |
(eval-and-compile |
| 100 |
(cond |
| 101 |
((fboundp 'executable-find)) |
| 102 |
((fboundp 'locate-file) |
| 103 |
(defun executable-find (command) |
| 104 |
(locate-file command exec-path nil 'executable))) |
| 105 |
(nil (require 'executable)))) |
| 99 |
|
106 |
|
| 100 |
(defvar gtypist-mode-syntax-table nil "Syntax-table for gtypist-mode.") |
107 |
(defvar gtypist-mode-syntax-table nil "Syntax-table for gtypist-mode.") |
| 101 |
(unless gtypist-mode-syntax-table |
108 |
(unless gtypist-mode-syntax-table |
