Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
58cc447b
Commit
58cc447b
authored
Oct 27, 2004
by
Richard M. Stallman
Browse files
(pcomplete-entries): Don't use directory-sep-char.
parent
5d610140
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
lisp/pcomplete.el
lisp/pcomplete.el
+4
-4
No files found.
lisp/pcomplete.el
View file @
58cc447b
...
...
@@ -150,7 +150,7 @@ This mirrors the optional behavior of tcsh."
:type
'boolean
:group
'pcomplete
)
(
defcustom
pcomplete-suffix-list
(
list
directory-sep-char
?:
)
(
defcustom
pcomplete-suffix-list
(
list
?/
?:
)
"*A list of characters which constitute a proper suffix."
:type
'
(
repeat
character
)
:group
'pcomplete
)
...
...
@@ -740,7 +740,7 @@ component, `default-directory' is used as the basis for completion."
(
function
(
lambda
(
file
)
(
if
(
eq
(
aref
file
(
1-
(
length
file
)))
directory-sep-char
)
?/
)
(
and
pcomplete-dir-ignore
(
string-match
pcomplete-dir-ignore
file
))
(
and
pcomplete-file-ignore
...
...
@@ -757,11 +757,11 @@ component, `default-directory' is used as the basis for completion."
;; since . is earlier in the ASCII alphabet than
;; /
(
let
((
left
(
if
(
eq
(
aref
l
(
1-
(
length
l
)))
directory-sep-char
)
?/
)
(
substring
l
0
(
1-
(
length
l
)))
l
))
(
right
(
if
(
eq
(
aref
r
(
1-
(
length
r
)))
directory-sep-char
)
?/
)
(
substring
r
0
(
1-
(
length
r
)))
r
)))
(
if
above-cutoff
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment