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

Diff of /emacs/src/fns.c

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

revision 1.314.2.18 by miles, Fri Nov 12 04:21:15 2004 UTC revision 1.314.2.19 by miles, Wed Dec 8 23:31:37 2004 UTC
# Line 741  concat (nargs, args, target_type, last_s Line 741  concat (nargs, args, target_type, last_s
741                    }                    }
742                  else                  else
743                    {                    {
744                      XSETFASTINT (elt, SREF (this, thisindex++));                      XSETFASTINT (elt, SREF (this, thisindex)); thisindex++;
745                      if (some_multibyte                      if (some_multibyte
746                          && (XINT (elt) >= 0240                          && (XINT (elt) >= 0240
747                              || (XINT (elt) >= 0200                              || (XINT (elt) >= 0200
# Line 1997  one of the properties on the list.  */) Line 1997  one of the properties on the list.  */)
1997    return Qnil;    return Qnil;
1998  }  }
1999    
2000    DEFUN ("safe-plist-get", Fsafe_plist_get, Ssafe_plist_get, 2, 2, 0,
2001           doc: /* Extract a value from a property list.
2002    PLIST is a property list, which is a list of the form
2003    \(PROP1 VALUE1 PROP2 VALUE2...).  This function returns the value
2004    corresponding to the given PROP, or nil if PROP is not
2005    one of the properties on the list.
2006    This function never signals an error.  */)
2007         (plist, prop)
2008         Lisp_Object plist;
2009         Lisp_Object prop;
2010    {
2011      Lisp_Object tail, halftail;
2012    
2013      /* halftail is used to detect circular lists.  */
2014      tail = halftail = plist;
2015      while (CONSP (tail) && CONSP (XCDR (tail)))
2016        {
2017          if (EQ (prop, XCAR (tail)))
2018            return XCAR (XCDR (tail));
2019    
2020          tail = XCDR (XCDR (tail));
2021          halftail = XCDR (halftail);
2022          if (EQ (tail, halftail))
2023            break;
2024        }
2025    
2026      return Qnil;
2027    }
2028    
2029  DEFUN ("get", Fget, Sget, 2, 2, 0,  DEFUN ("get", Fget, Sget, 2, 2, 0,
2030         doc: /* Return the value of SYMBOL's PROPNAME property.         doc: /* Return the value of SYMBOL's PROPNAME property.
2031  This is the last value stored with `(put SYMBOL PROPNAME VALUE)'.  */)  This is the last value stored with `(put SYMBOL PROPNAME VALUE)'.  */)
# Line 5734  used if both `use-dialog-box' and this v Line 5763  used if both `use-dialog-box' and this v
5763    defsubr (&Sreverse);    defsubr (&Sreverse);
5764    defsubr (&Ssort);    defsubr (&Ssort);
5765    defsubr (&Splist_get);    defsubr (&Splist_get);
5766      defsubr (&Ssafe_plist_get);
5767    defsubr (&Sget);    defsubr (&Sget);
5768    defsubr (&Splist_put);    defsubr (&Splist_put);
5769    defsubr (&Sput);    defsubr (&Sput);

Legend:
Removed from v.1.314.2.18  
changed lines
  Added in v.1.314.2.19

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