Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make dired-chmod-program obsolete

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2021-08-26 16:12:17 +02:00
parent fc4d3eea5a
commit e4ec39e52d
2 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/dired.el
View file

@ -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')."

3
lisp/net/ange-ftp.el
View file

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