toshi@saturn.isl.melco.junet (pri=-20) (05/22/89)
In GNU Emacs 18.54.2 of Mon May 15 1989 on unix (usg-unix-v)
Dear FSF.
I use emacs on SYSV machine. And "chown(1)" isn't in /etc, it is in
/bin.(I think that chown(1) is usually in /bin on SYSV machine.)
So dired-chown (in dired.el) isn't executed. I changed dired.el for
using on SYSV.
*** dired.el Mon May 22 11:48:17 1989
--- dired.el.orig Mon May 22 11:30:19 1989
***************
*** 28,39 ****
; "Switches passed to ls for dired. MUST contain the 'l' option.
;CANNOT contain the 'F' option.")
- ;; patched by toshi@isl.melco.co.jp for SYSV-chown
- (defvar chown-program
- (if (eq system-type 'usg-unix-v)
- "/bin/chown" "/etc/chown")
- "pargram changing owner ship")
-
(defun dired-readin (dirname buffer)
(save-excursion
(message "Reading directory %s..." dirname)
--- 28,33 ----
***************
*** 538,546 ****
(interactive "sChange to Owner: ")
(let ((buffer-read-only nil)
(file (dired-get-filename)))
! ;; patched by toshi@isl.melco.co.jp
! ;; (call-process "/etc/chown" nil nil nil owner file)
! (call-process chown-program nil nil nil owner file)
(dired-redisplay file)))
(defun dired-redisplay (file) "Redisplay this line."
--- 532,538 ----
(interactive "sChange to Owner: ")
(let ((buffer-read-only nil)
(file (dired-get-filename)))
! (call-process "/etc/chown" nil nil nil owner file)
(dired-redisplay file)))
(defun dired-redisplay (file) "Redisplay this line."
-------
ITO, TOSHIYUKI (Toshiyuki Ito)
Office: INFORMATION SYSTEMS & ELECTRONICS DEVELOPMENT LAB.
MITSUBISHI ELECTRIC CORPORATION
Address: 5-1-1 OFUNA KAMAKURA 247, JAPAN
PHONE: +81-467-44-9084
E-mail: toshi%isl.melco.co.jp@uunet.uu.net