Mercurial > emacs

diff lisp/files.el @ 3835:e3a00a940cf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-file): Report error if file is directory.
author Richard M. Stallman <rms@gnu.org>
date Sat, 19 Jun 1993 19:07:19 +0000
parents 09e961c82be8
children 5e740ac08e39
line wrap: on
line diff
--- a/lisp/files.el	Sat Jun 19 01:47:40 1993 +0000
+++ b/lisp/files.el	Sat Jun 19 19:07:19 1993 +0000
@@ -1550,6 +1550,9 @@
 Don't call it from programs!  Use `insert-file-contents' instead.
 \(Its calling sequence is different; see its documentation)."
   (interactive "fInsert file: ")
+  (if (file-directory-p filename)
+      (signal 'file-error (list "Opening input file" "file is a directory"
+				filename)))
   (let ((tem (insert-file-contents filename)))
     (push-mark (+ (point) (car (cdr tem))))))