emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r112316: ispell.el: use `comment-norm


From: Agustin Martin
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r112316: ispell.el: use `comment-normalize-vars' in ispell-add-per-file-word-list (Bug #14214).
Date: Wed, 17 Apr 2013 19:48:10 +0200
User-agent: Bazaar (2.5.0)

------------------------------------------------------------
revno: 112316
fixes bug: http://debbugs.gnu.org/14214
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Wed 2013-04-17 19:48:10 +0200
message:
  ispell.el: use `comment-normalize-vars' in ispell-add-per-file-word-list (Bug 
#14214).
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-17 05:08:20 +0000
+++ b/lisp/ChangeLog    2013-04-17 17:48:10 +0000
@@ -1,3 +1,10 @@
+2013-04-17  Nicolas Richard  <address@hidden>  (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  <address@hidden>
 
        New defun movement commands.

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2013-04-15 10:00:14 +0000
+++ b/lisp/textmodes/ispell.el  2013-04-17 17:48:10 +0000
@@ -4336,8 +4336,13 @@
                                   (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)
                                   " ")
                               "")


reply via email to

[Prev in Thread] Current Thread [Next in Thread]