Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 4be1180a9e89
children 8eaf7971accc
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
623 XSETSTRING (name, XSYMBOL (sym)->name); 623 XSETSTRING (name, XSYMBOL (sym)->name);
624 return name; 624 return name;
625 } 625 }
626 626
627 DEFUN ("fset", Ffset, 2, 2, 0, /* 627 DEFUN ("fset", Ffset, 2, 2, 0, /*
628 Set SYMBOL's function definition to NEWVAL, and return NEWVAL. 628 Set SYMBOL's function definition to NEWDEF, and return NEWDEF.
629 */ 629 */
630 (sym, newdef)) 630 (sym, newdef))
631 { 631 {
632 /* This function can GC */ 632 /* This function can GC */
633 CHECK_SYMBOL (sym); 633 CHECK_SYMBOL (sym);
646 return newdef; 646 return newdef;
647 } 647 }
648 648
649 /* FSFmacs */ 649 /* FSFmacs */
650 DEFUN ("define-function", Fdefine_function, 2, 2, 0, /* 650 DEFUN ("define-function", Fdefine_function, 2, 2, 0, /*
651 Set SYMBOL's function definition to NEWVAL, and return NEWVAL. 651 Set SYMBOL's function definition to NEWDEF, and return NEWDEF.
652 Associates the function with the current load file, if any. 652 Associates the function with the current load file, if any.
653 */ 653 */
654 (sym, newdef)) 654 (sym, newdef))
655 { 655 {
656 /* This function can GC */ 656 /* This function can GC */
660 return newdef; 660 return newdef;
661 } 661 }
662 662
663 663
664 DEFUN ("setplist", Fsetplist, 2, 2, 0, /* 664 DEFUN ("setplist", Fsetplist, 2, 2, 0, /*
665 Set SYMBOL's property list to NEWVAL, and return NEWVAL. 665 Set SYMBOL's property list to NEWPLIST, and return NEWPLIST.
666 */ 666 */
667 (sym, newplist)) 667 (sym, newplist))
668 { 668 {
669 CHECK_SYMBOL (sym); 669 CHECK_SYMBOL (sym);
670 #if 0 /* Inserted for debugging 6/28/1997 -slb */
671 /* Somebody is setting a property list of integer 0, who? */
672 /* Not this way apparently. */
673 if (EQ(newplist, Qzero)) abort();
674 #endif
675
670 XSYMBOL (sym)->plist = newplist; 676 XSYMBOL (sym)->plist = newplist;
671 return newplist; 677 return newplist;
672 } 678 }
673 679
674 680
1916 } 1922 }
1917 RETURN_NOT_REACHED(Qnil) /* suppress compiler warning */ 1923 RETURN_NOT_REACHED(Qnil) /* suppress compiler warning */
1918 } 1924 }
1919 1925
1920 DEFUN ("setq-default", Fsetq_default, 2, UNEVALLED, 0, /* 1926 DEFUN ("setq-default", Fsetq_default, 2, UNEVALLED, 0, /*
1921 Set the default value of variable VAR to VALUE. 1927 Set the default value of variable SYN to VALUE.
1922 VAR, the variable name, is literal (not evaluated); 1928 SYM, the variable name, is literal (not evaluated);
1923 VALUE is an expression and it is evaluated. 1929 VALUE is an expression and it is evaluated.
1924 The default value of a variable is seen in buffers 1930 The default value of a variable is seen in buffers
1925 that do not have their own values for the variable. 1931 that do not have their own values for the variable.
1926 1932
1927 More generally, you can use multiple variables and values, as in 1933 More generally, you can use multiple variables and values, as in