Mercurial > emacs
comparison lisp/files.el @ 9731:2fbc8ef9ff44
(find-file-noselect): Call set-buffer-major-mode here.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 27 Oct 1994 22:34:21 +0000 |
| parents | 224c0f70cc1b |
| children | 178a3bf170f3 |
comparison
equal
deleted
inserted
replaced
| 9730:a7d3e357a3f3 | 9731:2fbc8ef9ff44 |
|---|---|
| 696 ;;; (get-file-buffer link-name)))) | 696 ;;; (get-file-buffer link-name)))) |
| 697 ;;; (if (bufferp linked-buf) | 697 ;;; (if (bufferp linked-buf) |
| 698 ;;; (message "Symbolic link to file in buffer %s" | 698 ;;; (message "Symbolic link to file in buffer %s" |
| 699 ;;; (buffer-name linked-buf)))) | 699 ;;; (buffer-name linked-buf)))) |
| 700 (setq buf (create-file-buffer filename)) | 700 (setq buf (create-file-buffer filename)) |
| 701 (set-buffer-major-mode buf) | |
| 701 (set-buffer buf) | 702 (set-buffer buf) |
| 702 (erase-buffer) | 703 (erase-buffer) |
| 703 (condition-case () | 704 (condition-case () |
| 704 (insert-file-contents filename t) | 705 (insert-file-contents filename t) |
| 705 (file-error | 706 (file-error |