aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/org
diff options
context:
space:
mode:
authorPaul Eggert2019-12-05 19:31:00 -0800
committerPaul Eggert2019-12-05 19:32:12 -0800
commit4c933077157ba409d645f4649c8a3a8e534d53d5 (patch)
tree033484f3c691c3f678a79597e28cd12c34a02fed /lisp/org
parent5ee43ba0dfd96e5d39da556260346bd3c8ff99c1 (diff)
downloademacs-4c933077157ba409d645f4649c8a3a8e534d53d5.tar.gz
emacs-4c933077157ba409d645f4649c8a3a8e534d53d5.zip
2019-12-05 regexp lint fixes
* lisp/org/org-agenda.el (org-agenda-filter): Fix unescaped literal ‘+’ in regexp. Reported by Mattias Engdegård in: https://lists.gnu.org/r/emacs-devel/2019-12/msg00215.html * lisp/org/org.el (org-clone-subtree-with-time-shift): Fix a regexp typo that mishandled strings like ‘\1d’, reported by the same emaikl. * lisp/progmodes/verilog-mode.el (verilog-inject-inst): Omit unnecessary ‘?’ in regexp. Reported by Mattias Engdegård in: https://lists.gnu.org/r/emacs-devel/2019-12/msg00217.html
Diffstat (limited to 'lisp/org')
-rw-r--r--lisp/org/org-agenda.el2
-rw-r--r--lisp/org/org.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 7cb5cca34cd..2404ca43dcb 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -7670,7 +7670,7 @@ the variable `org-agenda-auto-exclude-function'."
7670 (if negate "Negative filter" "Filter") 7670 (if negate "Negative filter" "Filter")
7671 " [+cat-tag<0:10-/regexp/]: ") 7671 " [+cat-tag<0:10-/regexp/]: ")
7672 'org-agenda-filter-completion-function)) 7672 'org-agenda-filter-completion-function))
7673 (keep (or (if (string-match "^+[-+]" f-string) 7673 (keep (or (if (string-match "^\\+[+-]" f-string)
7674 (progn (setq f-string (substring f-string 1)) t)) 7674 (progn (setq f-string (substring f-string 1)) t))
7675 (equal strip-or-accumulate '(16)))) 7675 (equal strip-or-accumulate '(16))))
7676 (fc (if keep org-agenda-category-filter)) 7676 (fc (if keep org-agenda-category-filter))
diff --git a/lisp/org/org.el b/lisp/org/org.el
index b37beeb96a6..f25c53caaff 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -7825,7 +7825,7 @@ with the original repeater."
7825 ""))) ;No time shift 7825 ""))) ;No time shift
7826 (doshift 7826 (doshift
7827 (and (org-string-nw-p shift) 7827 (and (org-string-nw-p shift)
7828 (or (string-match "\\`[ \t]*\\([\\+\\-]?[0-9]+\\)\\([dwmy]\\)[ \t]*\\'" 7828 (or (string-match "\\`[ \t]*\\([+-]?[0-9]+\\)\\([dwmy]\\)[ \t]*\\'"
7829 shift) 7829 shift)
7830 (user-error "Invalid shift specification %s" shift))))) 7830 (user-error "Invalid shift specification %s" shift)))))
7831 (goto-char end-of-tree) 7831 (goto-char end-of-tree)