Lines 167-193
Link Here
|
167 |
(set (make-local-variable 'comment-start-skip) "!+\\s-*") |
167 |
(set (make-local-variable 'comment-start-skip) "!+\\s-*") |
168 |
(set (make-local-variable 'font-lock-defaults) |
168 |
(set (make-local-variable 'font-lock-defaults) |
169 |
'(gle-font-lock-keywords)) |
169 |
'(gle-font-lock-keywords)) |
|
|
170 |
(run-hooks 'gle-mode-hook) |
170 |
) |
171 |
) |
171 |
|
172 |
|
172 |
(add-menu nil "GLE" |
173 |
(define-key gle-mode-map [menu-bar gle-mode] |
173 |
'( |
174 |
(cons "GLE" (make-sparse-keymap "GLE"))) |
174 |
["View ps file" gle-view-postscript t] |
175 |
(define-key gle-mode-map [menu-bar gle-mode gle-write-standard-graph] |
175 |
["View png file" gle-view-png t ] |
176 |
'("Write graph" . gle-write-standard-graph)) |
176 |
"--------------------" |
177 |
(define-key gle-mode-map [menu-bar gle-mode separator-gle-mode-2] |
177 |
["Create ps file" gle-create-postscript t] |
178 |
'("--------------------")) |
178 |
"--------------------" |
179 |
(define-key gle-mode-map [menu-bar gle-mode gle-create-postscript] |
179 |
["Write graph" gle-write-standard-graph t] |
180 |
'("Create ps file" . gle-create-postscript)) |
180 |
)) |
181 |
(define-key gle-mode-map [menu-bar gle-mode separator-gle-mode-1] |
|
|
182 |
'("--------------------")) |
183 |
(define-key gle-mode-map [menu-bar gle-mode gle-view-png] |
184 |
'("View png file" . gle-view-png)) |
185 |
(define-key gle-mode-map [menu-bar gle-mode gle-view-postscript] |
186 |
'("View ps file" . gle-view-postscript)) |
181 |
|
187 |
|
182 |
|
188 |
(define-key gle-mode-map "\C-c\C-p" 'gle-create-postscript) |
183 |
(setq major-mode 'gle-mode) |
189 |
(define-key gle-mode-map "\C-c\C-v" 'gle-view-postscript) |
184 |
(setq mode-name "GLE") |
190 |
(define-key gle-mode-map "\C-c\C-x" 'gle-view-x) |
185 |
(local-set-key "\t" " ") |
191 |
(define-key gle-mode-map "\C-c\C-b" 'gle-write-basic-commands) |
186 |
(global-set-key "\C-c\C-p" 'gle-create-postscript) |
|
|
187 |
(global-set-key "\C-c\C-v" 'gle-view-postscript) |
188 |
(global-set-key "\C-c\C-x" 'gle-view-x) |
189 |
(global-set-key "\C-c\C-b" 'gle-write-basic-commands) |
190 |
(run-hooks 'gle-mode-hook) |
191 |
|
192 |
|
192 |
(provide 'gle-mode) |
193 |
(provide 'gle-mode) |
193 |
;; End gle-mode |
194 |
;; End gle-mode |