master 8a224e5124 3/6: * lisp/emacs-lisp/shortdoc.el (file-name): Improve examples.

[Stefan Kangas]

branch: master
commit 8a224e5124f4a64054d570054a37d2e56d3fe500
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    * lisp/emacs-lisp/shortdoc.el (file-name): Improve examples.
---
 lisp/emacs-lisp/shortdoc.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 2472479bad..fe4f2ae3ac 100644
--- 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)