Mercurial > hg > xemacs-beta

comparison src/lread.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
786 if (purify_flag && noninteractive) 786 if (purify_flag && noninteractive)
787 { 787 {
788 if (EQ (last_file_loaded, file)) 788 if (EQ (last_file_loaded, file))
789 message_append (" (%d)", purespace_usage() - pure_usage); 789 message_append (" (%d)", purespace_usage() - pure_usage);
790 else 790 else
791 message ("Loading %s...done (%d)", XSTRING_DATA (file), 791 message ("Loading %s ...done (%d)", XSTRING_DATA (file),
792 purespace_usage() - pure_usage); 792 purespace_usage() - pure_usage);
793 } 793 }
794 #endif /* DEBUG_XEMACS */ 794 #endif /* DEBUG_XEMACS */
795 795
796 if (!noninteractive) 796 if (!noninteractive)
2734 { 2734 {
2735 if (purify_flag) 2735 if (purify_flag)
2736 { 2736 {
2737 if (NILP (Vdoc_file_name)) 2737 if (NILP (Vdoc_file_name))
2738 /* We have not yet called Snarf-documentation, so 2738 /* We have not yet called Snarf-documentation, so
2739 assume this file is described in the DOC 2739 assume this file is described in the DOC file
2740 file and Snarf-documentation will fill in the 2740 and Snarf-documentation will fill in the right
2741 right value later. For now, replace the whole 2741 value later. For now, replace the whole list
2742 list with 0. */ 2742 with 0. */
2743 XCAR (holding_cons) = Qzero; 2743 XCAR (holding_cons) = Qzero;
2744 else 2744 else
2745 /* We have already called Snarf-documentation, so 2745 /* We have already called Snarf-documentation, so
2746 make a relative file name for this file, so it 2746 make a relative file name for this file, so it
2747 can be found properly in the installed Lisp 2747 can be found properly in the installed Lisp