File emacs-24.4-flyspell.patch of Package emacs-old

Overview Repositories Revisions Requests Users Attributes Meta

File emacs-24.4-flyspell.patch of Package emacs-old

---
 lisp/textmodes/flyspell.el |   11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

--- lisp/textmodes/flyspell.el
+++ lisp/textmodes/flyspell.el	2021-10-08 09:31:55.632323098 +0000
@@ -289,6 +289,12 @@ If this variable is nil, all regions are
   "The key binding for flyspell auto correction."
   :type 'key-sequence)
 
+(defvar flyspell-signature-separator
+  (if (boundp 'message-signature-separator)
+	message-signature-separator
+     "^-- $")
+  "*String used to recognize .signatures.")
+
 ;;*---------------------------------------------------------------------*/
 ;;*    Mode specific options                                            */
 ;;*    -------------------------------------------------------------    */
@@ -313,7 +319,6 @@ property of the major mode name.")
 ;;*--- mail mode -------------------------------------------------------*/
 (put 'mail-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
 (put 'message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
-(defvar message-signature-separator)
 (defun mail-mode-flyspell-verify ()
   "Function used for `flyspell-generic-check-word-predicate' in Mail mode."
   (let* ((header-end (save-excursion
@@ -325,11 +330,11 @@ property of the major mode name.")
                         nil t)
                        (point)))
          (signature-begin
-          (if (not (boundp 'message-signature-separator))
+          (if (not (boundp 'flyspell-signature-separator))
               (point-max)
             (save-excursion
               (goto-char (point-max))
-              (re-search-backward message-signature-separator
+              (re-search-backward flyspell-signature-separator
                                   (max header-end (- (point) 4000)) t)
               (point)))))
     (cond ((< (point) header-end)

Places

File emacs-24.4-flyspell.patch of Package emacs-old

Places