[elpa] externals/f90-interface-browser 089789c 5/5: Fix some quoting problems in doc strings

[Stefan Monnier]

branch: externals/f90-interface-browser
commit 089789c1279034d025ffe7329d94727a1cf729ed
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Fix some quoting problems in doc strings
    
    Most of these are minor issues involving, e.g., quoting `like this'
    instead of 'like this'.  A few involve escaping ` and ' with a
    preceding \= when the characters should not be turned into curved single
    quotes.
---
 f90-interface-browser.el |  4 ++--
 f90-tests.el             | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/f90-interface-browser.el b/f90-interface-browser.el
index 8113a8b..1b69061 100644
--- a/f90-interface-browser.el
+++ b/f90-interface-browser.el
@@ -243,7 +243,7 @@ If NAME is like type(TYPENAME) return TYPENAME, otherwise 
just NAME."
 
 Recurse over all (non-hidden) directories below DIR and parse
 interfaces found within them using `f90-parse-interfaces-in-dir',
-a directory is considered hidden if it's name doesn't start with
+a directory is considered hidden if its name doesn't start with
 an alphanumeric character."
   (interactive "DParse files in tree: ")
   (let (dirs
@@ -664,7 +664,7 @@ see `f90-insert-fluidity-refcount'."
 (defun f90-insert-fluidity-refcount (file fname)
   "Insert a Fluidity reference count template for FILE.
 
-If FNAME matches \\\\`Reference_count_.*\\\\.F90 then this file
+If FNAME matches \\\\=`Reference_count_\\([^\\.]+\\)\\.F90 then this file
 needs a reference count interface, so insert one."
   (when (string-match "\\`Reference_count_\\([^\\.]+\\)\\.F90" fname)
     (insert-file-contents-literally
diff --git a/f90-tests.el b/f90-tests.el
index 74c0dee..5f221a6 100644
--- a/f90-tests.el
+++ b/f90-tests.el
@@ -28,7 +28,7 @@
 (defvar *test-running-tests* nil)
 (defmacro deftest (name parameters &rest body)
   "Define a test function. Within a test function we can call
-   other test functions or use 'check' to run individual test
+   other test functions or use `check' to run individual test
    cases."
   `(prog1 ',name
      (setf (gethash ',name *test-tests*)
@@ -37,7 +37,7 @@
                ,@body)))))
 
 (defmacro test-check (&rest forms)
-  "Run each expression in 'forms' as a test case."
+  "Run each expression in FORMS as a test case."
   `(test-combine-results
     ,@(cl-loop for (expr res) in forms
                collect `(test-report-result (equal (condition-case _
@@ -47,14 +47,14 @@
                                             ',expr ',res))))
 
 (defmacro test-combine-results (&rest forms)
-  "Combine the results (as booleans) of evaluating 'forms' in order."
+  "Combine the results (as booleans) of evaluating FORMS in order."
   (let ((result (make-symbol "result")))
     `(let ((,result t))
        ,@(cl-loop for f in forms collect `(unless ,f (setf ,result nil)))
        ,result)))
 
 (defun test-report-result (result res req)
-  "Report the results of a single test case. Called by 'check'."
+  "Report the results of a single test case. Called by `check'."
   (if result
       (insert (format "%s ... %S: %S\n"
                      (propertize "pass"
@@ -112,7 +112,7 @@
    ((f90-split-arglist "foo, dimension(1, size(a, b))")
     ("foo" "dimension(1, size(a, b))"))
    ((f90-parse-names-list "a=1, B=>null()") ("a" "b"))))
-   
+
 (deftest all ()
   (test-combine-results
    (test-run-test 'type-modifiers)