1464 |
buf) |
buf) |
1465 |
;; Create a new buffer. |
;; Create a new buffer. |
1466 |
(setq buf (create-file-buffer filename)) |
(setq buf (create-file-buffer filename)) |
|
(set-buffer-major-mode buf) |
|
1467 |
;; find-file-noselect-1 may use a different buffer. |
;; find-file-noselect-1 may use a different buffer. |
1468 |
(find-file-noselect-1 buf filename nowarn |
(find-file-noselect-1 buf filename nowarn |
1469 |
rawfile truename number)))))) |
rawfile truename number)))))) |
1537 |
(progn |
(progn |
1538 |
(set-buffer-multibyte nil) |
(set-buffer-multibyte nil) |
1539 |
(setq buffer-file-coding-system 'no-conversion) |
(setq buffer-file-coding-system 'no-conversion) |
1540 |
|
(set-buffer-major-mode buf) |
1541 |
(make-local-variable 'find-file-literally) |
(make-local-variable 'find-file-literally) |
1542 |
(setq find-file-literally t)) |
(setq find-file-literally t)) |
1543 |
(after-find-file error (not nowarn))) |
(after-find-file error (not nowarn))) |
1727 |
or from Lisp without specifying the optional argument FIND-FILE; |
or from Lisp without specifying the optional argument FIND-FILE; |
1728 |
in that case, this function acts as if `enable-local-variables' were t." |
in that case, this function acts as if `enable-local-variables' were t." |
1729 |
(interactive) |
(interactive) |
1730 |
(or find-file (funcall (or default-major-mode 'fundamental-mode))) |
(funcall (or default-major-mode 'fundamental-mode)) |
1731 |
(let ((enable-local-variables (or (not find-file) enable-local-variables))) |
(let ((enable-local-variables (or (not find-file) enable-local-variables))) |
1732 |
(report-errors "File mode specification error: %s" |
(report-errors "File mode specification error: %s" |
1733 |
(set-auto-mode)) |
(set-auto-mode)) |
3450 |
(recursive-edit) |
(recursive-edit) |
3451 |
;; Return nil to ask about BUF again. |
;; Return nil to ask about BUF again. |
3452 |
nil) |
nil) |
3453 |
"display the current buffer") |
"view this file") |
3454 |
(?d diff-buffer-with-file |
(?d diff-buffer-with-file |
3455 |
"show difference to last saved version")) |
"view changes in file")) |
3456 |
"ACTION-ALIST argument used in call to `map-y-or-n-p'.") |
"ACTION-ALIST argument used in call to `map-y-or-n-p'.") |
3457 |
(put 'save-some-buffers-action-alist 'risky-local-variable t) |
(put 'save-some-buffers-action-alist 'risky-local-variable t) |
3458 |
|
|
4844 |
((eq method 'add) |
((eq method 'add) |
4845 |
(concat "/:" (apply operation arguments))) |
(concat "/:" (apply operation arguments))) |
4846 |
((eq method 'quote) |
((eq method 'quote) |
4847 |
(prog1 (apply operation arguments) |
(unwind-protect |
4848 |
|
(apply operation arguments) |
4849 |
(setq buffer-file-name (concat "/:" buffer-file-name)))) |
(setq buffer-file-name (concat "/:" buffer-file-name)))) |
4850 |
((eq method 'unquote-then-quote) |
((eq method 'unquote-then-quote) |
4851 |
(let (res) |
(let (res) |