diff options
| author | Kevin Ryde <user42_kevin@yahoo.com.au> | 2020-08-21 14:17:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-21 14:17:56 +0200 |
| commit | 47b3adf8bb29f89a2c3cbfd99ac3df52810ca211 (patch) | |
| tree | f2cac455ff2b05309eaedef84133ed3c3b33fbbb /lisp/textmodes/ispell.el | |
| parent | 3feef0428dad1e847d250d949248907ad31669dc (diff) | |
| download | emacs-47b3adf8bb29f89a2c3cbfd99ac3df52810ca211.tar.gz emacs-47b3adf8bb29f89a2c3cbfd99ac3df52810ca211.tar.bz2 emacs-47b3adf8bb29f89a2c3cbfd99ac3df52810ca211.zip | |
Have ispell add new LocalWords lines after any such existing lines
* textmodes/ispell.el (ispell-add-per-file-word-list): Add new
LocalWords line just after existing such lines. Good to keep words
together or if deliberately placed somewhere special (bug#20486).
Diffstat (limited to 'lisp/textmodes/ispell.el')
| -rw-r--r-- | lisp/textmodes/ispell.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index b2ccbc8da24..8252da604eb 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -4188,7 +4188,7 @@ Both should not be used to define a buffer-local dictionary." (let (line-okay search done found) (while (not done) (let ((case-fold-search nil)) - (setq search (search-forward ispell-words-keyword nil 'move) + (setq search (search-forward ispell-words-keyword nil t) found (or found search) line-okay (< (+ (length word) 1 ; 1 for space after word.. (progn (end-of-line) (current-column))) @@ -4199,8 +4199,10 @@ Both should not be used to define a buffer-local dictionary." (setq done t) (if (null search) (progn - (open-line 1) - (unless found (newline)) + (if found (insert "\n") ;; after an existing LocalWords + (goto-char (point-max)) ;; no LocalWords, go to end of file + (open-line 1) + (newline)) (insert (if comment-start (concat (progn |