Mercurial > hg > xemacs-beta

comparison lisp/packages/vc.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 59463afc5666
children 929b76928fce
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1368 ;; force a trailing slash 1368 ;; force a trailing slash
1369 (if (not (eq (elt dirname (1- (length dirname))) ?/)) 1369 (if (not (eq (elt dirname (1- (length dirname))) ?/))
1370 (setq dirname (concat dirname "/"))) 1370 (setq dirname (concat dirname "/")))
1371 (let (nonempty 1371 (let (nonempty
1372 (dl (if (featurep 'xemacs) 1372 (dl (if (featurep 'xemacs)
1373 (+ 1 (length (directory-file-name (expand-file-name dir)))) 1373 (+ 1 (length (directory-file-name (expand-file-name dirname))))
1374 (length dirname))) 1374 (length dirname)))
1375 (filelist nil) (statelist nil) 1375 (filelist nil) (statelist nil)
1376 (old-dir default-directory) 1376 (old-dir default-directory)
1377 dired-buf 1377 dired-buf
1378 dired-buf-mod-count) 1378 dired-buf-mod-count)