master e4ec39e5 1/2: Make dired-chmod-program obsolete

[Lars Ingebrigtsen]

branch: master
commit e4ec39e52d5fb42b777a07e2c6a55397b5916458
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/dired.el        | 7 +++----
 lisp/net/ange-ftp.el | 3 +--
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index 950323f..958677c 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 e302aa8..c51766d 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))