Mercurial > hg > xemacs-beta

comparison src/marker.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 e22b0213b713
children de9952d2ed18
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
52 buf = wrap_buffer (marker->buffer); 52 buf = wrap_buffer (marker->buffer);
53 return (buf); 53 return (buf);
54 } 54 }
55 55
56 static void 56 static void
57 print_marker (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 57 print_marker (Lisp_Object obj, Lisp_Object printcharfun,
58 int UNUSED (escapeflag))
58 { 59 {
59 Lisp_Marker *marker = XMARKER (obj); 60 Lisp_Marker *marker = XMARKER (obj);
60 61
61 if (print_readably) 62 if (print_readably)
62 printing_unreadable_object ("#<marker 0x%lx>", (long) marker); 63 printing_unreadable_object ("#<marker 0x%lx>", (long) marker);
74 write_c_string (printcharfun, " insertion-type=t"); 75 write_c_string (printcharfun, " insertion-type=t");
75 write_fmt_string (printcharfun, " 0x%lx>", (long) marker); 76 write_fmt_string (printcharfun, " 0x%lx>", (long) marker);
76 } 77 }
77 78
78 static int 79 static int
79 marker_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) 80 marker_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
80 { 81 {
81 Lisp_Marker *marker1 = XMARKER (obj1); 82 Lisp_Marker *marker1 = XMARKER (obj1);
82 Lisp_Marker *marker2 = XMARKER (obj2); 83 Lisp_Marker *marker2 = XMARKER (obj2);
83 84
84 return ((marker1->buffer == marker2->buffer) && 85 return ((marker1->buffer == marker2->buffer) &&
86 /* All markers pointing nowhere are equal */ 87 /* All markers pointing nowhere are equal */
87 !marker1->buffer)); 88 !marker1->buffer));
88 } 89 }
89 90
90 static unsigned long 91 static unsigned long
91 marker_hash (Lisp_Object obj, int depth) 92 marker_hash (Lisp_Object obj, int UNUSED (depth))
92 { 93 {
93 unsigned long hash = (unsigned long) XMARKER (obj)->buffer; 94 unsigned long hash = (unsigned long) XMARKER (obj)->buffer;
94 if (hash) 95 if (hash)
95 hash = HASH2 (hash, XMARKER (obj)->membpos); 96 hash = HASH2 (hash, XMARKER (obj)->membpos);
96 return hash; 97 return hash;