Mercurial > emacs
comparison lisp/loadup.el @ 23663:ba5feaac00b1
(buffer-undo-list): Run fns-VERSION.el through
convert-standard-filename.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 08 Nov 1998 17:23:52 +0000 |
| parents | d2bbcd0b95c9 |
| children | b42fdebae792 |
comparison
equal
deleted
inserted
replaced
| 23662:a0da0fa2edfd | 23663:ba5feaac00b1 |
|---|---|
| 223 (if (cdr tem) | 223 (if (cdr tem) |
| 224 (princ " " (current-buffer))) | 224 (princ " " (current-buffer))) |
| 225 (setq tem (cdr tem)))) | 225 (setq tem (cdr tem)))) |
| 226 (princ ")))\n" (current-buffer)) | 226 (princ ")))\n" (current-buffer)) |
| 227 (write-region (point-min) (point-max) | 227 (write-region (point-min) (point-max) |
| 228 (expand-file-name (format "../lisp/fns-%s.el" emacs-version) | 228 (expand-file-name (convert-standard-filename |
| 229 invocation-directory)) | 229 (format "../lisp/fns-%s.el" emacs-version)) |
| 230 invocation-directory)) | |
| 230 (erase-buffer)) | 231 (erase-buffer)) |
| 231 (setq load-history nil) | 232 (setq load-history nil) |
| 232 (set-buffer-modified-p nil) | 233 (set-buffer-modified-p nil) |
| 233 | 234 |
| 234 (garbage-collect) | 235 (garbage-collect) |