diff options
| author | Juri Linkov | 2022-12-19 19:54:08 +0200 |
|---|---|---|
| committer | Juri Linkov | 2022-12-19 19:54:08 +0200 |
| commit | 399433cc2b9500b7ee78503c03cead106b76bbd6 (patch) | |
| tree | 07b68410ad3cd442fd5158b16fef899e046130b4 | |
| parent | 23f7c9c2a92e4619b7c4d2286d4249f812cd695d (diff) | |
| download | emacs-399433cc2b9500b7ee78503c03cead106b76bbd6.tar.gz emacs-399433cc2b9500b7ee78503c03cead106b76bbd6.zip | |
* lisp/progmodes/project.el: Filter out empty strings from history (bug#58447)
(project--read-file-cpd-relative): Do not include empty strings (when
prefix has the same length as the string).
| -rw-r--r-- | lisp/progmodes/project.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 559da6dd649..605636d93e3 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el | |||
| @@ -1045,6 +1045,7 @@ by the user at will." | |||
| 1045 | (mapcan | 1045 | (mapcan |
| 1046 | (lambda (s) | 1046 | (lambda (s) |
| 1047 | (and (string-prefix-p abbr-cpd s) | 1047 | (and (string-prefix-p abbr-cpd s) |
| 1048 | (not (eq (length abbr-cpd) (length s))) | ||
| 1048 | (list (substring s (length abbr-cpd))))) | 1049 | (list (substring s (length abbr-cpd))))) |
| 1049 | (symbol-value hist)))) | 1050 | (symbol-value hist)))) |
| 1050 | (project--completing-read-strict prompt | 1051 | (project--completing-read-strict prompt |