Mercurial > emacs
changeset 445:2a2230dd1b1c
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 05 Dec 1991 23:21:45 +0000 |
| parents | 4cec2e6d4f9e |
| children | 76b7a95526d3 |
| files | lisp/loadup.el lisp/server.el |
| diffstat | 2 files changed, 5 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Thu Dec 05 18:54:06 1991 +0000 +++ b/lisp/loadup.el Thu Dec 05 23:21:45 1991 +0000 @@ -75,7 +75,7 @@ ;doc strings kept in the DOC file rather than in core, ;you may load them with a "site-load.el" file. ;But you must also cause them to be scanned when the DOC file -;is generated. For VMS, you must edit ../etc/makedoc.com. +;is generated. For VMS, you must edit ../vms/makedoc.com. ;For other systems, you must edit ../src/ymakefile. (if (load "site-load" t) (garbage-collect)) @@ -94,8 +94,8 @@ (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) - (copy-file (expand-file-name "../etc/DOC") - (concat (expand-file-name "../etc/DOC-") name) + (copy-file (expand-file-name "../share-lib/DOC") + (concat (expand-file-name "../share-lib/DOC-") name) t) (Snarf-documentation (concat "DOC-" name))) (Snarf-documentation "DOC"))
--- a/lisp/server.el Thu Dec 05 18:54:06 1991 +0000 +++ b/lisp/server.el Thu Dec 05 23:21:45 1991 +0000 @@ -24,12 +24,12 @@ ;;; a server for other processes. ;;; Load this library and do M-x server-edit to enable Emacs as a server. -;;; Emacs runs the program ../etc/emacsserver as a subprocess +;;; Emacs runs the program ../arch-lib/emacsserver as a subprocess ;;; for communication with clients. If there are no client buffers to edit, ;;; server-edit acts like (switch-to-buffer (other-buffer)) ;;; When some other program runs "the editor" to edit a file, -;;; "the editor" can be the Emacs client program ../etc/emacsclient. +;;; "the editor" can be the Emacs client program ../lib-src/emacsclient. ;;; This program transmits the file names to Emacs through ;;; the server subprocess, and Emacs visits them and lets you edit them. @@ -130,9 +130,6 @@ (set-process-sentinel server-process nil) (condition-case () (delete-process server-process) (error nil)))) (condition-case () (delete-file "~/.emacs_server") (error nil)) - (condition-case () - (delete-file (format "/tmp/esrv%d-%s" (user-uid) (system-name))) - (error nil)) ;; If we already had a server, clear out associated status. (while server-clients (let ((buffer (nth 1 (car server-clients))))