1953 |
(eq (preceding-char) ?@) ;; did ls really mark the link? |
(eq (preceding-char) ?@) ;; did ls really mark the link? |
1954 |
(forward-char -1)))) |
(forward-char -1)))) |
1955 |
(goto-char eol) ;; else not a symbolic link |
(goto-char eol) ;; else not a symbolic link |
1956 |
;; ls -lF marks dirs, sockets and executables with exactly one |
;; ls -lF marks dirs, sockets, fifos and executables with exactly |
1957 |
;; trailing character. (Executable bits on symlinks ain't mean |
;; one trailing character. (Executable bits on symlinks ain't mean |
1958 |
;; a thing, even to ls, but we know it's not a symlink.) |
;; a thing, even to ls, but we know it's not a symlink.) |
1959 |
(and used-F |
(and used-F |
1960 |
(or (memq file-type '(?d ?s)) |
(or (memq file-type '(?d ?s ?p)) |
1961 |
executable) |
executable) |
1962 |
(forward-char -1)))) |
(forward-char -1)))) |
1963 |
(or no-error |
(or no-error |