diff options
author | leo <event.riga@gmail.com> | 2017-04-19 15:01:47 +0100 |
---|---|---|
committer | Jean Delvare <jdelvare@suse.de> | 2017-04-25 14:52:01 +0200 |
commit | 059cba7c6fe781d1707f4503e4f09257cc1a24db (patch) | |
tree | ebf8f63adcf9e4b6146d194f5e2cd6ee875eb9be /lib/quilt.el | |
parent | 715ed584abf6f06e3ec0a90738c941e7937e466d (diff) | |
download | quilt-059cba7c6fe781d1707f4503e4f09257cc1a24db.tar.gz |
quilt.el: don't strip directory in quilt-top-patch as it could be a part of patch name
Diffstat (limited to 'lib/quilt.el')
-rw-r--r-- | lib/quilt.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/quilt.el b/lib/quilt.el index 3dfdec3..545e965 100644 --- a/lib/quilt.el +++ b/lib/quilt.el @@ -152,8 +152,7 @@ "Return the top patch name. return nil if there is the bottom of patch stack." (if (quilt-bottom-p) nil - (file-name-nondirectory - (substring (quilt-cmd-to-string "top") 0 -1)))) + (substring (quilt-cmd-to-string "top") 0 -1))) (defun quilt-complete-list (p l) "Call 'completing-read' with prompt P and list L." @@ -186,7 +185,7 @@ (defun quilt-short-patchname () "Return shortened name of top patch. Return nil if there is on the bottom of patch stack." - (let ((p (quilt-top-patch))) + (let ((p (file-name-nondirectory (quilt-top-patch)))) (if (not p) "none" (let ((p2 (file-name-sans-extension p))) |