From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 24 Sep 2022 00:15:53 +0000 (+0200)
Subject: * lisp/emacs-lisp/shortdoc.el (file-name): Improve examples.
X-Git-Tag: emacs-29.0.90~1856^2~277
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a224e5124f4a64054d570054a37d2e56d3fe500;p=emacs.git

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

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