[Emacs-diffs] Changes to emacs/lisp/dired-x.el

[Juanma Barranquero]

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