GNU bug report logs - #35967
[PATCH] avoid flyspell error if point is at bob

Previous Next

Full log

Message #29 received at 35967 <at> debbugs.gnu.org (full text, mbox):

From: Andreas Schwab <schwab <at> linux-m68k.org>
To: Alex Branham <alex.branham <at> gmail.com>
Cc: 35967 <at> debbugs.gnu.org, npostavs <at> gmail.com
Subject: Re: bug#35967: [PATCH] avoid flyspell error if point is at bob
Date: Fri, 14 Jun 2019 21:14:15 +0200

On Jun 14 2019, Alex Branham <alex.branham <at> gmail.com> wrote:

> diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
> index d18916dfd0..22f9db4363 100644
> --- a/lisp/textmodes/flyspell.el
> +++ b/lisp/textmodes/flyspell.el
> @@ -423,9 +423,10 @@ flyspell-prog-text-faces
>  
>  (defun flyspell-generic-progmode-verify ()
>    "Used for `flyspell-generic-check-word-predicate' in programming modes."
> -  ;; (point) is next char after the word. Must check one char before.
> -  (let ((f (get-text-property (- (point) 1) 'face)))
> -    (memq f flyspell-prog-text-faces)))
> +  (unless (eql (point) (point-min))
> +    ;; (point) is next char after the word. Must check one char before.
> +    (let ((f (get-text-property (- (point) 1) 'face)))

Perhaps change this to (1- (point)).

Andreas.

-- 
Andreas Schwab, schwab <at> linux-m68k.org
GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510  2552 DF73 E780 A9DA AEC1
"And now for something completely different."

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.