Make dired-chmod-program obsolete

* lisp/dired.el (dired-chmod-program): Make into a defvar and make
obsolete (bug#50190).

* lisp/net/ange-ftp.el (ange-ftp-process-file): Remove usage of
dired-chmod-program.

diff --git a/lisp/dired.el b/lisp/dired.el
index 950323f366aff512d8b9af3f5d17e7f882a9133b..958677cd0c78c899af40ca733facdba55a023800 100644 (file)
--- 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 e302aa89f30dec961c21cfbd8ccdc77aef4524aa..c51766d168a167e2e0fc13842cdcc69d42da10d8 100644 (file)
--- 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))