From 78fc2a3a5e8f4dc3d6fa3ce3bbd98d2bf39ce3b2 Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Sun, 30 Sep 2012 13:03:52 +0200 Subject: [PATCH] Quote and downcase params with digits in them too. --- README.md | 4 ++-- examples-to-docs.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index b90fb85..ec26500 100644 --- a/README.md +++ b/README.md @@ -146,7 +146,7 @@ additional args. ### !difference `(list list2)` -Return a new list with only the members of `list` that are not in LIST2. +Return a new list with only the members of `list` that are not in `list2`. The test for equality is done with `equal`, or with `!compare-fn` if that's non-nil. @@ -158,7 +158,7 @@ or with `!compare-fn` if that's non-nil. ### !intersection `(list list2)` -Return a new list containing only the elements that are members of both `list` and LIST2. +Return a new list containing only the elements that are members of both `list` and `list2`. The test for equality is done with `equal`, or with `!compare-fn` if that's non-nil. diff --git a/examples-to-docs.el b/examples-to-docs.el index 04bc329..a5685e3 100644 --- a/examples-to-docs.el +++ b/examples-to-docs.el @@ -24,7 +24,7 @@ (defun quote-docstring (docstring) (let (case-fold-search) - (setq docstring (replace-regexp-in-string "\\b\\([A-Z][A-Z-]*\\)\\b" 'quote-and-downcase docstring t)) + (setq docstring (replace-regexp-in-string "\\b\\([A-Z][A-Z-]*[0-9]*\\)\\b" 'quote-and-downcase docstring t)) (setq docstring (replace-regexp-in-string "`\\([^ ]+\\)'" "`\\1`" docstring t))) docstring)