[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.577 emacs/lisp/files.el:1.578
*** emacs/lisp/files.el:1.577   Tue May 28 05:08:42 2002
--- emacs/lisp/files.el Wed May 29 12:34:41 2002
***************
*** 1283,1296 ****
           (progn
             (make-local-variable 'backup-inhibited)
             (setq backup-inhibited t)))
!       (if rawfile
!         (progn
!           (set-buffer-multibyte nil)
!           (setq buffer-file-coding-system 'no-conversion)
!           (make-local-variable 'find-file-literally)
!           (setq find-file-literally t))
!       (after-find-file error (not nowarn)))
!       (current-buffer))))
  
  (defun insert-file-contents-literally (filename &optional visit beg end 
replace)
    "Like `insert-file-contents', but only reads in the file literally.
--- 1283,1297 ----
           (progn
             (make-local-variable 'backup-inhibited)
             (setq backup-inhibited t)))
!       (let ((buffer (current-buffer)))
!       (if rawfile
!           (progn
!             (set-buffer-multibyte nil)
!             (setq buffer-file-coding-system 'no-conversion)
!             (make-local-variable 'find-file-literally)
!             (setq find-file-literally t))
!         (after-find-file error (not nowarn)))
!       buffer))))
  
  (defun insert-file-contents-literally (filename &optional visit beg end 
replace)
    "Like `insert-file-contents', but only reads in the file literally.
***************
*** 1472,1477 ****
--- 1473,1479 ----
       ("\\.p\\'" . pascal-mode)
       ("\\.pas\\'" . pascal-mode)
       ("\\.ad[abs]\\'" . ada-mode)
+      ("\\.ad[bs].dg\\'" . ada-mode)
       ("\\.\\([pP]\\([Llm]\\|erl\\)\\|al\\)\\'" . perl-mode)
       ("\\.s?html?\\'" . html-mode)
       ("\\.cc\\'" . c++-mode)