Mercurial > hg > xemacs-beta

comparison lisp/dired/dired-chmod.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
130 (t (dired-chmod-do-chmod (cond ((looking-at "s") "o-s") 130 (t (dired-chmod-do-chmod (cond ((looking-at "s") "o-s")
131 ((looking-at "t") "o-t") 131 ((looking-at "t") "o-t")
132 ((looking-at "x") "o-x") 132 ((looking-at "x") "o-x")
133 (t "o-x"))))))) 133 (t "o-x")))))))
134 134
135 ;;;###autoload
135 (defun dired-make-permissions-interactive () 136 (defun dired-make-permissions-interactive ()
136 (save-excursion 137 (save-excursion
137 (beginning-of-line 0) 138 (beginning-of-line 0)
138 (if (and (re-search-forward dired-pre-permissions-regexp (end-of-line) t) 139 (if (and (re-search-forward dired-pre-permissions-regexp (end-of-line) t)
139 (looking-at dired-permissions-regexp)) 140 (looking-at dired-permissions-regexp))