* lisp/emacs-lisp/shortdoc.el (file-name): Improve examples.

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 2472479bad682a277ced8e62c2262d00963075fe..fe4f2ae3acf9eab24c629b7bb528f7a0903482ea 100644 (file)
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -357,11 +357,9 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
    :eg-result "~some-user")
   (file-parent-directory
    :eval (file-parent-directory "/foo/bar")
-   :eval (file-parent-directory "~")
-   :eval (file-parent-directory "/tmp/")
+   :eval (file-parent-directory "/foo/")
    :eval (file-parent-directory "foo/bar")
-   :eval (file-parent-directory "foo")
-   :eval (file-parent-directory "/"))
+   :eval (file-parent-directory "foo"))
   "Quoted File Names"
   (file-name-quote
    :args (name)