From e4ec39e52d5fb42b777a07e2c6a55397b5916458 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 26 Aug 2021 16:12:17 +0200 Subject: [PATCH] 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 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)) -- 2.39.2