martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Have ispell add new LocalWords lines after any such existing lines

Browse Source 
* 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).
This commit is contained in:
Kevin Ryde
2020-08-21 14:17:56 +02:00
committed by Lars Ingebrigtsen
parent 3feef0428d
commit 47b3adf8bb
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/ispell.el
View File

@@ -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