From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 26 Aug 2021 14:12:17 +0000 (+0200)
Subject: Make dired-chmod-program obsolete
X-Git-Tag: emacs-28.0.90~1299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4ec39e52d5fb42b777a07e2c6a55397b5916458;p=emacs.git

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 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))