version 1.84, 2010/12/31 18:09:02
|
version 1.85, 2011/08/13 09:47:08
|
Line 1388 programmers who tend to fill code won't
|
Line 1388 programmers who tend to fill code won't
|
(defun forth-remove-tracers () |
(defun forth-remove-tracers () |
"Remove tracers of the form `~~ '. Queries the user for each occurrence." |
"Remove tracers of the form `~~ '. Queries the user for each occurrence." |
(interactive) |
(interactive) |
(query-replace-regexp "\\(~~ \\| ~~$\\)" "" nil)) |
(query-replace-regexp "\\(~~[ \t]\\|[ \t]~~$\\)" "" nil)) |
|
|
(define-key forth-mode-map "\C-x\C-e" 'compile) |
(define-key forth-mode-map "\C-x\C-e" 'compile) |
(define-key forth-mode-map "\C-x\C-n" 'next-error) |
(define-key forth-mode-map "\C-x\C-n" 'next-error) |