diff options
| author | Randy Taylor <dev@rjt.dev> | 2022-12-01 22:12:07 -0500 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2022-12-02 17:12:43 +0200 |
| commit | 1b567f5a67de1151b76b279311a73a7bf7174c12 (patch) | |
| tree | d36e9d12085a26b7891d73e99dce68b514580027 | |
| parent | f72cda2b822e0726f46a8caa4ec0b8e7ddae2584 (diff) | |
| download | emacs-1b567f5a67de1151b76b279311a73a7bf7174c12.tar.gz | |
Use file-name-nondirectory to determine default project-name
* lisp/progmodes/project.el (project-name):
Use file-name-nondirectory instead of file-name-base (bug#59756).
| -rw-r--r-- | lisp/progmodes/project.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 3f4a5fb04bc..38d4fdad5fc 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1,7 +1,7 @@ ;;; project.el --- Operations on the current project -*- lexical-binding: t; -*- ;; Copyright (C) 2015-2022 Free Software Foundation, Inc. -;; Version: 0.9.1 +;; Version: 0.9.2 ;; Package-Requires: ((emacs "26.1") (xref "1.4.0")) ;; This is a GNU ELPA :core package. Avoid using functionality that @@ -278,7 +278,7 @@ headers search path, load path, class path, and so on." (cl-defgeneric project-name (project) "A human-readable name for the project. Nominally unique, but not enforced." - (file-name-base (directory-file-name (project-root project)))) + (file-name-nondirectory (directory-file-name (project-root project)))) (cl-defgeneric project-ignores (_project _dir) "Return the list of glob patterns to ignore inside DIR. |