From ec7e39f24707268201a444fc4bbc42b2dffae6c5 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agust=C3=ADn=20Mart=C3=ADn?= Date: Wed, 17 Apr 2013 19:48:10 +0200 Subject: [PATCH] ispell.el: use `comment-normalize-vars' in ispell-add-per-file-word-list (Bug #14214). --- lisp/ChangeLog | 7 +++++++ lisp/textmodes/ispell.el | 9 +++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11666c60c74..cdb8fe5d36c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2013-04-17 Nicolas Richard (tiny change) + + * textmodes/ispell.el (ispell-add-per-file-word-list): + Fix `flyspell-correct-word-before-point' error when accepting + words and `coment-padding' is an integer by using + `comment-normalize-vars' (Bug #14214). + 2013-04-17 Fabián Ezequiel Gallina New defun movement commands. diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 06c3cc68664..94b184d09a1 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -4336,8 +4336,13 @@ Both should not be used to define a buffer-local dictionary." (if (fboundp 'comment-padright) ;; Try and use the proper comment marker, ;; e.g. ";;" rather than ";". - (comment-padright comment-start - (comment-add nil)) + (progn + ;; XEmacs: comment-normalize-vars + ;; (newcomment.el) only in >= 21.5 + (and (fboundp 'comment-normalize-vars) + (comment-normalize-vars)) + (comment-padright comment-start + (comment-add nil))) comment-start) " ") "") -- 2.39.2