128 |
(forward-char 1) |
(forward-char 1) |
129 |
(delete-region (point-min) (point)) |
(delete-region (point-min) (point)) |
130 |
(setq newword |
(setq newword |
131 |
(read-input (concat "`" word |
(read-string (concat "`" word |
132 |
"' not recognized; edit a replacement: ") |
"' not recognized; edit a replacement: ") |
133 |
word)) |
word)) |
134 |
(flush-lines (concat "^" (regexp-quote word) "$"))) |
(flush-lines (concat "^" (regexp-quote word) "$"))) |
135 |
(if (not (equal word newword)) |
(if (not (equal word newword)) |
136 |
(progn |
(progn |