/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.782 by ttn, Sat Aug 6 22:13:42 2005 UTC revision 1.783 by rms, Tue Aug 9 13:35:03 2005 UTC
# Line 1464  the various files." Line 1464  the various files."
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))))))
# Line 1538  the various files." Line 1537  the various files."
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)))
# Line 1727  not set local variables (though we do no Line 1727  not set local variables (though we do no
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))
# Line 3450  This requires the external program `diff Line 3450  This requires the external program `diff
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    
# Line 4844  With prefix arg, silently save all file- Line 4844  With prefix arg, silently save all file-
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)

Legend:
Removed from v.1.782  
changed lines
  Added in v.1.783

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26