cgit.sxemacs.org Git - sxemacs/blob - src/editfns.c

   1 /* Lisp functions pertaining to editing.
   2    Copyright (C) 1985-1987, 1989, 1992-1995 Free Software Foundation, Inc.
   3    Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
   4    Copyright (C) 1996 Ben Wing.
   5
   6 This file is part of SXEmacs
   7
   8 SXEmacs is free software: you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation, either version 3 of the License, or
  11 (at your option) any later version.
  12
  13 SXEmacs is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  20
  21
  22 /* Synched up with: Mule 2.0, FSF 19.30. */
  23
  24 /* This file has been Mule-ized. */
  25
  26 /* Hacked on for Mule by Ben Wing, December 1994. */
  27
  28 #include <config.h>
  29 #include "lisp.h"
  30
  31 #include "buffer.h"
  32 #include "commands.h"
  33 #define INCLUDE_EVENTS_H_PRIVATE_SPHERE
  34 #include "events/events.h"              /* for EVENTP */
  35 #include "extents.h"
  36 #include "ui/frame.h"
  37 #include "ui/insdel.h"
  38 #include "ui/window.h"
  39 #include "casetab.h"
  40 #include "chartab.h"
  41 #include "line-number.h"
  42
  43 #include "systime.h"
  44 #include "sysdep.h"
  45 #include "syspwd.h"
  46 #include "sysfile.h"            /* for getcwd */
  47
  48 /* Some static data, and a function to initialize it for each run */
  49
  50 Lisp_Object Vsystem_name;       /* #### - I don't see why this should be */
  51                                 /* static, either...  --Stig */
  52 #if 0                           /* XEmacs - this is now dynamic */
  53                                 /* if at some point it's deemed desirable to
  54                                    use lisp variables here, then they can be
  55                                    initialized to nil and then set to their
  56                                    real values upon the first call to the
  57                                    functions that generate them. --stig */
  58 Lisp_Object Vuser_real_login_name;      /* login name of current user ID */
  59 Lisp_Object Vuser_login_name;   /* user name from LOGNAME or USER.  */
  60 #endif
  61
  62 /* It's useful to be able to set this as user customization, so we'll
  63    keep it. */
  64 Lisp_Object Vuser_full_name;
  65 EXFUN(Fuser_full_name, 1);
  66
  67 Lisp_Object Qformat;
  68
  69 Lisp_Object Qpoint, Qmark, Qregion_beginning, Qregion_end;
  70
  71 Lisp_Object Quser_files_and_directories;
  72
  73 /* This holds the value of `environ' produced by the previous
  74    call to Fset_time_zone_rule, or 0 if Fset_time_zone_rule
  75    has never been called.  */
  76 static char **environbuf;
  77
  78 void init_editfns(void)
  79 {
  80 /* Only used in removed code below. */
  81         char *p;
  82
  83         environbuf = 0;
  84
  85         /* Set up system_name even when dumping.  */
  86         init_system_name();
  87
  88 #ifndef CANNOT_DUMP
  89         if (!initialized)
  90                 return;
  91 #endif
  92
  93         if ((p = getenv("NAME")))
  94                 /* I don't think it's the right thing to do the ampersand
  95                    modification on NAME.  Not that it matters anymore...  -hniksic */
  96                 Vuser_full_name = build_ext_string(p, Qnative);
  97         else
  98                 Vuser_full_name = Fuser_full_name(Qnil);
  99 }
 100 \f
 101 DEFUN("char-to-string", Fchar_to_string, 1, 1, 0,       /*
 102 Convert CHARACTER to a one-character string containing that character.
 103 */
 104       (character))
 105 {
 106         Bytecount len;
 107         Bufbyte str[MAX_EMCHAR_LEN];
 108
 109         if (EVENTP(character)) {
 110                 Lisp_Object ch2 =
 111                     Fevent_to_character(character, Qt, Qnil, Qnil);
 112                 if (NILP(ch2))
 113                         return
 114                             signal_simple_continuable_error
 115                             ("character has no ASCII equivalent:",
 116                           &