/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

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

revision 1.277.2.2 by fx, Mon Jun 24 18:23:15 2002 UTC revision 1.277.2.3 by fx, Thu Jul 18 16:30:36 2002 UTC
# Line 758  Return t if file exists.  */) Line 758  Return t if file exists.  */)
758              {              {
759                safe_p = 0;                safe_p = 0;
760                if (!load_dangerous_libraries)                if (!load_dangerous_libraries)
761                  error ("File `%s' was not compiled in Emacs",                  {
762                         XSTRING (found)->data);                    emacs_close (fd);
763                      error ("File `%s' was not compiled in Emacs",
764                             XSTRING (found)->data);
765                    }
766                else if (!NILP (nomessage))                else if (!NILP (nomessage))
767                  message_with_string ("File `%s' not compiled in Emacs", found, 1);                  message_with_string ("File `%s' not compiled in Emacs", found, 1);
768              }              }
# Line 778  Return t if file exists.  */) Line 781  Return t if file exists.  */)
781    
782                if (fd >= 0)                if (fd >= 0)
783                  emacs_close (fd);                  emacs_close (fd);
784                  /* load-with-code-conversion currently fails with
785                     emacs-mule non-ASCII doc strings.  */
786                  error ("Can't currently load Emacs 20/1-compiled files: %s",
787                         XSTRING (found)->data);
788    #if 0
789                val = call4 (intern ("load-with-code-conversion"), found, file,                val = call4 (intern ("load-with-code-conversion"), found, file,
790                             NILP (noerror) ? Qnil : Qt,                             NILP (noerror) ? Qnil : Qt,
791                             NILP (nomessage) ? Qnil : Qt);                             NILP (nomessage) ? Qnil : Qt);
792    #endif
793                return unbind_to (count, val);                return unbind_to (count, val);
794              }              }
795    

Legend:
Removed from v.1.277.2.2  
changed lines
  Added in v.1.277.2.3

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