diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired.el | 7 | ||||
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
2 files changed, 4 insertions, 6 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 950323f366a..958677cd0c7 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -137,10 +137,9 @@ For more details, see Info node `(emacs)ls in Lisp'." (const :tag "Do not use --dired" nil) (other :tag "Always use --dired" t))) -(defcustom dired-chmod-program "chmod" - "Name of chmod command (usually `chmod')." - :group 'dired - :type 'file) +(defvar dired-chmod-program "chmod" + "Name of chmod command (usually `chmod').") +(make-obsolete-variable 'dired-chmod-program nil "28.1") (defcustom dired-touch-program "touch" "Name of touch command (usually `touch')." diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index e302aa89f30..c51766d168a 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4704,8 +4704,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ;; Can't use ange-ftp-dired-host-type here because the current ;; buffer is *dired-check-process output* (condition-case oops - (cond ((equal (or (bound-and-true-p dired-chmod-program) "chmod") - program) + (cond ((equal "chmod" program) (ange-ftp-call-chmod arguments)) ;; ((equal "chgrp" program)) ;; ((equal dired-chown-program program)) |