Mercurial > hg > xemacs-beta

comparison src/eval.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 61855263cb07
children 13a418960a88
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
409 /************************************************************************/ 409 /************************************************************************/
410 /* The subr object type */ 410 /* The subr object type */
411 /************************************************************************/ 411 /************************************************************************/
412 412
413 static void 413 static void
414 print_subr (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 414 print_subr (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED (escapeflag))
415 { 415 {
416 Lisp_Subr *subr = XSUBR (obj); 416 Lisp_Subr *subr = XSUBR (obj);
417 const CIbyte *header = 417 const CIbyte *header =
418 (subr->max_args == UNEVALLED) ? "#<special-form " : "#<subr "; 418 (subr->max_args == UNEVALLED) ? "#<special-form " : "#<subr ";
419 const CIbyte *name = subr_name (subr); 419 const CIbyte *name = subr_name (subr);
4745 { 4745 {
4746 return inhibit_flags; 4746 return inhibit_flags;
4747 } 4747 }
4748 4748
4749 void 4749 void
4750 check_allowed_operation (int what, Lisp_Object obj, Lisp_Object prop) 4750 check_allowed_operation (int what, Lisp_Object obj, Lisp_Object UNUSED (prop))
4751 { 4751 {
4752 if (inhibit_flags & INHIBIT_EXISTING_BUFFER_TEXT_MODIFICATION) 4752 if (inhibit_flags & INHIBIT_EXISTING_BUFFER_TEXT_MODIFICATION)
4753 { 4753 {
4754 if (what == OPERATION_MODIFY_BUFFER_TEXT && BUFFERP (obj) 4754 if (what == OPERATION_MODIFY_BUFFER_TEXT && BUFFERP (obj)
4755 && NILP (memq_no_quit (obj, Vmodifiable_buffers))) 4755 && NILP (memq_no_quit (obj, Vmodifiable_buffers)))