🚀 go-pugleaf

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