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
44c816da
Commit
44c816da
authored
Dec 22, 1997
by
Richard M. Stallman
Browse files
(dired-mark-sexp): Skip leading space in defining `uid'.
parent
8557ea06
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
lisp/dired-x.el
lisp/dired-x.el
+3
-1
No files found.
lisp/dired-x.el
View file @
44c816da
...
...
@@ -1461,6 +1461,7 @@ See also variable `dired-vm-read-only-folders'."
;; Does anyone use this? - lrd 6/29/93.
;; Apparently people do use it. - lrd 12/22/97.
(
defun
dired-mark-sexp
(
predicate
&optional
unflag-p
)
"Mark files for which PREDICATE returns non-nil.
With a prefix arg, unflag those files instead.
...
...
@@ -1522,7 +1523,8 @@ to mark all zero length files."
(
setq
mode
(
buffer-substring
(
point
)
(
+
mode-len
(
point
))))
(
forward-char
mode-len
)
(
setq
nlink
(
read
(
current-buffer
)))
(
setq
uid
(
buffer-substring
(
point
)
(
progn
(
forward-word
1
)
(
point
))))
;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid.
(
setq
uid
(
buffer-substring
(
+
(
point
)
1
)
(
progn
(
forward-word
1
)
(
point
))))
(
re-search-forward
"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)"
)
(
goto-char
(
match-beginning
1
))
(
forward-char
-1
)
...
...
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