1517 |
;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid. |
;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid. |
1518 |
(setq uid (buffer-substring (+ (point) 1) |
(setq uid (buffer-substring (+ (point) 1) |
1519 |
(progn (forward-word 1) (point)))) |
(progn (forward-word 1) (point)))) |
1520 |
(re-search-forward dired-move-to-filename-regexp) |
(re-search-forward directory-listing-before-filename-regexp) |
1521 |
(goto-char (match-beginning 1)) |
(goto-char (match-beginning 1)) |
1522 |
(forward-char -1) |
(forward-char -1) |
1523 |
(setq size (string-to-number (buffer-substring (save-excursion |
(setq size (string-to-number (buffer-substring (save-excursion |