emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/writegood-mode 51180eab3a 06/47: Updated regexps to be mul


From: ELPA Syncer
Subject: [nongnu] elpa/writegood-mode 51180eab3a 06/47: Updated regexps to be multiline. Turned on case-insensitive matching
Date: Mon, 12 Dec 2022 21:01:40 -0500 (EST)

branch: elpa/writegood-mode
commit 51180eab3af9a106807323d8f99dfca8e04a8aac
Author: Benjamin Beckwith <bnbeckwith@gmail.com>
Commit: Benjamin Beckwith <bnbeckwith@gmail.com>

    Updated regexps to be multiline. Turned on case-insensitive matching
---
 writegood-mode.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/writegood-mode.el b/writegood-mode.el
index 400bc62be3..0f9b4c1417 100755
--- a/writegood-mode.el
+++ b/writegood-mode.el
@@ -2,10 +2,10 @@
 ;;
 ;; Author: Benjamin Beckwith
 ;; Created: 2010-8-12
-;; Version: 1.0
+;; Version: 1.1
 ;; Last-Updated: 2010-8-13
 ;; URL: http://github.com/bnbeckwith/writegood-mode
-;; Keywords: writing weasel-words
+;; Keywords: writing weasel-words grammar
 ;; Compatability:
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -23,6 +23,7 @@
 ;;
 ;;; Change Log:
 ;;
+;; 1.1 Fixed regexps to be multiline.
 ;; 1.0 Initial version
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -129,7 +130,7 @@
   :type 'list)
 
 (defvar writegood-passive-voice-font-lock-keywords-regexp
-  (concat "\\b\\(am\\|are\\|were\\|being\\|is\\|been\\|was\\|be\\)\\b[ 
]*\\(\\w+ed\\|"
+  (concat 
"\\b\\(am\\|are\\|were\\|being\\|is\\|been\\|was\\|be\\)\\b[\s\n]+\\(\\w+ed\\|"
          (regexp-opt writegood-passive-voice-irregulars)
          "\\)")
   "Font-lock keywords regexp for passive-voice")
@@ -148,7 +149,7 @@
   :group 'writegood)
 
 (defvar writegood-duplicates-font-lock-keywords-regexp
-  "\\b\\(\\w+\\)[ ]+\\1"
+  "\\b\\(\\w+\\)[\s\n]+\\1"
   "Font-lock keywords for duplicates")
 
 (defconst writegood-duplicates-font-lock-keywords
@@ -183,6 +184,8 @@
 
 (defun writegood-turn-on ()
   "Turn on writegood-mode."
+  (make-local-variable 'font-lock-keywords-case-fold-search)
+  (setq font-lock-keywords-case-fold-search t)
   (writegood-weasels-turn-on)
   (writegood-passive-voice-turn-on)
   (writegood-duplicates-turn-on))



reply via email to

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