/[emacs]/emacs/lisp/textmodes/spell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/spell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by miles, Mon Sep 1 15:45:40 2003 UTC revision 1.19 by lektu, Wed May 18 10:17:18 2005 UTC
# Line 128  for example, \"word\"." Line 128  for example, \"word\"."
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

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26