Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 867:804517e16990

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-06-05 09:54:39 by ben] Textual renaming: text/char names abbrev.c, alloc.c, buffer.c, buffer.h, bytecode.c, callint.c, casefiddle.c, casetab.c, charset.h, chartab.c, chartab.h, cmds.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-tty.c, console-x.c, console-x.h, console.h, data.c, device-msw.c, device-x.c, dialog-msw.c, dired-msw.c, dired.c, doc.c, doprnt.c, editfns.c, eldap.c, emodules.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-unixoid.c, events.c, events.h, file-coding.c, file-coding.h, fileio.c, filelock.c, fns.c, font-lock.c, frame-gtk.c, frame-msw.c, frame-x.c, frame.c, glyphs-eimage.c, glyphs-msw.c, glyphs-x.c, glyphs.c, glyphs.h, gpmevent.c, gui-x.c, gui-x.h, gui.c, gui.h, hpplay.c, indent.c, insdel.c, insdel.h, intl-win32.c, keymap.c, line-number.c, line-number.h, lisp-disunion.h, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, md5.c, menubar-msw.c, menubar-x.c, menubar.c, minibuf.c, mule-ccl.c, mule-charset.c, mule-coding.c, mule-wnnfns.c, ndir.h, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-tty.c, objects-x.c, objects.c, objects.h, postgresql.c, print.c, process-nt.c, process-unix.c, process.c, procimpl.h, realpath.c, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, regex.c, search.c, select-common.h, select-gtk.c, select-x.c, sound.h, symbols.c, syntax.c, syntax.h, sysdep.c, sysdep.h, sysdir.h, sysfile.h, sysproc.h, syspwd.h, systime.h, syswindows.h, termcap.c, tests.c, text.c, text.h, toolbar-common.c, tooltalk.c, ui-gtk.c, unexnt.c, unicode.c, win32.c: Text/char naming rationalization. [a] distinguish between "charptr" when it refers to operations on the pointer itself and when it refers to operations on text; and [b] use consistent naming for everything referring to internal format, i.e. Itext == text in internal format Ibyte == a byte in such text Ichar == a char as represented in internal character format thus e.g. set_charptr_emchar -> set_itext_ichar The pre and post tags on either side of this change are: pre-internal-format-textual-renaming post-internal-format-textual-renaming See the Internals Manual for details of exactly how this was done, how to handle the change in your workspace, etc.
author ben
date Wed, 05 Jun 2002 09:58:45 +0000
parents 84762348c6f9
children 79c6ff3eef26
comparison
equal deleted inserted replaced
866:613552a02607 867:804517e16990
143 struct buffer buffer_local_flags; 143 struct buffer buffer_local_flags;
144 144
145 /* This is the initial (startup) directory, as used for the *scratch* buffer. 145 /* This is the initial (startup) directory, as used for the *scratch* buffer.
146 This is no longer global. Use get_initial_directory() to retrieve it. 146 This is no longer global. Use get_initial_directory() to retrieve it.
147 */ 147 */
148 static Intbyte *initial_directory; 148 static Ibyte *initial_directory;
149 149
150 /* This structure holds the names of symbols whose values may be 150 /* This structure holds the names of symbols whose values may be
151 buffer-local. It is indexed and accessed in the same way as the above. */ 151 buffer-local. It is indexed and accessed in the same way as the above. */
152 static Lisp_Object Vbuffer_local_symbols; 152 static Lisp_Object Vbuffer_local_symbols;
153 static void *buffer_local_symbols_saved_slots; 153 static void *buffer_local_symbols_saved_slots;
711 */ 711 */
712 (name, ignore)) 712 (name, ignore))
713 { 713 {
714 REGISTER Lisp_Object gentemp, tem; 714 REGISTER Lisp_Object gentemp, tem;
715 int count; 715 int count;
716 Intbyte number[10]; 716 Ibyte number[10];
717 717
718 CHECK_STRING (name); 718 CHECK_STRING (name);
719 719
720 name = LISP_GETTEXT (name); 720 name = LISP_GETTEXT (name);
721 #ifdef I18N3 721 #ifdef I18N3
2760 } 2760 }
2761 2761
2762 #ifndef WIN32_NATIVE 2762 #ifndef WIN32_NATIVE
2763 /* Is PWD another name for `.' ? */ 2763 /* Is PWD another name for `.' ? */
2764 static int 2764 static int
2765 directory_is_current_directory (Intbyte *pwd) 2765 directory_is_current_directory (Ibyte *pwd)
2766 { 2766 {
2767 struct stat dotstat, pwdstat; 2767 struct stat dotstat, pwdstat;
2768 2768
2769 return (IS_DIRECTORY_SEP (*pwd) 2769 return (IS_DIRECTORY_SEP (*pwd)
2770 && qxe_stat (pwd, &pwdstat) == 0 2770 && qxe_stat (pwd, &pwdstat) == 0
2771 && qxe_stat ((Intbyte *) ".", &dotstat) == 0 2771 && qxe_stat ((Ibyte *) ".", &dotstat) == 0
2772 && dotstat.st_ino == pwdstat.st_ino 2772 && dotstat.st_ino == pwdstat.st_ino
2773 && dotstat.st_dev == pwdstat.st_dev); 2773 && dotstat.st_dev == pwdstat.st_dev);
2774 } 2774 }
2775 #endif 2775 #endif
2776 2776
2777 /* A stand-in for getcwd() #### Fix not to depend on arbitrary size limits */ 2777 /* A stand-in for getcwd() #### Fix not to depend on arbitrary size limits */
2778 2778
2779 Intbyte * 2779 Ibyte *
2780 get_initial_directory (Intbyte *pathname, Bytecount size) 2780 get_initial_directory (Ibyte *pathname, Bytecount size)
2781 { 2781 {
2782 if (pathname) 2782 if (pathname)
2783 { 2783 {
2784 qxestrncpy (pathname, initial_directory, size); 2784 qxestrncpy (pathname, initial_directory, size);
2785 pathname[size - 1] = '\0'; 2785 pathname[size - 1] = '\0';
2791 init_initial_directory (void) 2791 init_initial_directory (void)
2792 { 2792 {
2793 /* This function can GC */ 2793 /* This function can GC */
2794 2794
2795 #ifndef WIN32_NATIVE 2795 #ifndef WIN32_NATIVE
2796 Intbyte *pwd; 2796 Ibyte *pwd;
2797 #endif 2797 #endif
2798 2798
2799 /* If PWD is accurate, use it instead of calling getcwd. This is faster 2799 /* If PWD is accurate, use it instead of calling getcwd. This is faster
2800 when PWD is right, and may avoid a fatal error. */ 2800 when PWD is right, and may avoid a fatal error. */
2801 #ifndef WIN32_NATIVE 2801 #ifndef WIN32_NATIVE
2804 initial_directory = qxestrdup (pwd); 2804 initial_directory = qxestrdup (pwd);
2805 else 2805 else
2806 #endif 2806 #endif
2807 if ((initial_directory = qxe_allocating_getcwd ()) == NULL) 2807 if ((initial_directory = qxe_allocating_getcwd ()) == NULL)
2808 { 2808 {
2809 Intbyte *errmess; 2809 Ibyte *errmess;
2810 GET_STRERROR (errmess, errno); 2810 GET_STRERROR (errmess, errno);
2811 fatal ("`getcwd' failed: %s\n", errmess); 2811 fatal ("`getcwd' failed: %s\n", errmess);
2812 } 2812 }
2813 2813
2814 /* Make sure pwd is DIRECTORY_SEP-terminated. 2814 /* Make sure pwd is DIRECTORY_SEP-terminated.
2817 { 2817 {
2818 Bytecount len = qxestrlen (initial_directory); 2818 Bytecount len = qxestrlen (initial_directory);
2819 2819
2820 if (! IS_DIRECTORY_SEP (initial_directory[len - 1])) 2820 if (! IS_DIRECTORY_SEP (initial_directory[len - 1]))
2821 { 2821 {
2822 XREALLOC_ARRAY (initial_directory, Intbyte, len + 2); 2822 XREALLOC_ARRAY (initial_directory, Ibyte, len + 2);
2823 initial_directory[len] = DIRECTORY_SEP; 2823 initial_directory[len] = DIRECTORY_SEP;
2824 initial_directory[len + 1] = '\0'; 2824 initial_directory[len + 1] = '\0';
2825 } 2825 }
2826 } 2826 }
2827 2827
2828 #ifdef WIN32_NATIVE 2828 #ifdef WIN32_NATIVE
2829 { 2829 {
2830 Intbyte *newinit = mswindows_canonicalize_filename (initial_directory); 2830 Ibyte *newinit = mswindows_canonicalize_filename (initial_directory);
2831 xfree (initial_directory); 2831 xfree (initial_directory);
2832 initial_directory = newinit; 2832 initial_directory = newinit;
2833 } 2833 }
2834 2834
2835 { 2835 {