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