Index: emacs/lisp/dired-x.el
diff -c emacs/lisp/dired-x.el:1.56 emacs/lisp/dired-x.el:1.57
*** emacs/lisp/dired-x.el:1.56 Sun Jun 13 13:38:14 2004
--- emacs/lisp/dired-x.el Mon May 16 11:33:46 2005
***************
*** 1501,1510 ****
(if (looking-at dired-re-inode-size)
(progn
(goto-char (match-end 0))
! (setq inode (string-to-int (buffer-substring
(match-beginning 1)
! (match-end
1)))
! s (string-to-int (buffer-substring (match-beginning
2)
! (match-end 2)))))
(setq inode nil
s nil))
(setq mode (buffer-substring (point) (+ mode-len (point))))
--- 1501,1510 ----
(if (looking-at dired-re-inode-size)
(progn
(goto-char (match-end 0))
! (setq inode (string-to-number (buffer-substring
(match-beginning 1)
!
(match-end 1)))
! s (string-to-number (buffer-substring
(match-beginning 2)
! (match-end
2)))))
(setq inode nil
s nil))
(setq mode (buffer-substring (point) (+ mode-len (point))))
***************
*** 1516,1525 ****
(re-search-forward dired-move-to-filename-regexp)
(goto-char (match-beginning 1))
(forward-char -1)
! (setq size (string-to-int (buffer-substring (save-excursion
! (backward-word 1)
! (setq pos
(point)))
! (point))))
(goto-char pos)
(backward-word 1)
;; if no gid is displayed, gid will be set to uid
--- 1516,1525 ----
(re-search-forward dired-move-to-filename-regexp)
(goto-char (match-beginning 1))
(forward-char -1)
! (setq size (string-to-number (buffer-substring (save-excursion
! (backward-word
1)
! (setq pos
(point)))
! (point))))
(goto-char pos)
(backward-word 1)
;; if no gid is displayed, gid will be set to uid
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
