Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents cca96a509cfe
children 1856695b1fa9
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
646 init_buffer_text (b, 0); 646 init_buffer_text (b, 0);
647 647
648 return finish_init_buffer (b, name); 648 return finish_init_buffer (b, name);
649 } 649 }
650 650
651 #if 0 /* #### implement this! Need various changes in insdel.c */
651 DEFUN ("make-indirect-buffer", Fmake_indirect_buffer, 2, 2, 652 DEFUN ("make-indirect-buffer", Fmake_indirect_buffer, 2, 2,
652 "bMake indirect buffer (to buffer): \nBName of indirect buffer: ", /* 653 "bMake indirect buffer (to buffer): \nBName of indirect buffer: ", /*
653 Create and return an indirect buffer for buffer BASE, named NAME. 654 Create and return an indirect buffer for buffer BASE, named NAME.
654 BASE should be an existing buffer (or buffer name). 655 BASE should be an existing buffer (or buffer name).
655 NAME should be a string which is not the name of an existing buffer. 656 NAME should be a string which is not the name of an existing buffer.
657 is made the base buffer for the newly created buffer. (Thus, there will 658 is made the base buffer for the newly created buffer. (Thus, there will
658 never be indirect buffers whose base buffers are themselves indirect.) 659 never be indirect buffers whose base buffers are themselves indirect.)
659 */ 660 */
660 (base_buffer, name)) 661 (base_buffer, name))
661 { 662 {
662 error ("make-indirect-buffer not yet implemented, oops");
663 return Qnil;
664
665 #if 0 /* #### implement this! Need various changes in insdel.c */
666 Lisp_Object buf; 663 Lisp_Object buf;
667 REGISTER struct buffer *b; 664 REGISTER struct buffer *b;
668 665
669 #ifdef I18N3 666 #ifdef I18N3
670 /* #### Doc string should indicate that the buffer name will get 667 /* #### Doc string should indicate that the buffer name will get
697 b->base_buffer->indirect_children = 694 b->base_buffer->indirect_children =
698 Fcons (buf, b->base_buffer->indirect_children); 695 Fcons (buf, b->base_buffer->indirect_children);
699 init_buffer_text (b, 1); 696 init_buffer_text (b, 1);
700 697
701 return finish_init_buffer (b, name); 698 return finish_init_buffer (b, name);
699 }
702 #endif /* 0 */ 700 #endif /* 0 */
703 }
704 701
705 702
706 static void 703 static void
707 reset_buffer_local_variables (struct buffer *b, int first_time) 704 reset_buffer_local_variables (struct buffer *b, int first_time)
708 { 705 {
1915 DEFSUBR (Fbuffer_list); 1912 DEFSUBR (Fbuffer_list);
1916 DEFSUBR (Fdecode_buffer); 1913 DEFSUBR (Fdecode_buffer);
1917 DEFSUBR (Fget_buffer); 1914 DEFSUBR (Fget_buffer);
1918 DEFSUBR (Fget_file_buffer); 1915 DEFSUBR (Fget_file_buffer);
1919 DEFSUBR (Fget_buffer_create); 1916 DEFSUBR (Fget_buffer_create);
1917 #if 0
1920 DEFSUBR (Fmake_indirect_buffer); 1918 DEFSUBR (Fmake_indirect_buffer);
1919 #endif
1921 1920
1922 DEFSUBR (Fgenerate_new_buffer_name); 1921 DEFSUBR (Fgenerate_new_buffer_name);
1923 DEFSUBR (Fbuffer_name); 1922 DEFSUBR (Fbuffer_name);
1924 DEFSUBR (Fbuffer_file_name); 1923 DEFSUBR (Fbuffer_file_name);
1925 DEFSUBR (Fbuffer_base_buffer); 1924 DEFSUBR (Fbuffer_base_buffer);