Mercurial > emacs
annotate oldXMenu/insque.c @ 74850:c775c3d9b89a
* calendar/calendar.el (calendar-mode-map): Switch < and >.
(calendar-mode-line-format): Use mouse-1 bindings, and tweak
formatting.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 23 Dec 2006 19:06:59 +0000 |
parents | ce127a46b1ca |
children | 8003d205a12f 6588c6259dfb |
rev | line source |
---|---|
74548 | 1 /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
68640
e8a3fb527b77
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
65000
diff
changeset
|
2 2006 Free Software Foundation, Inc. */ |
65000
3861ff8f4bf1
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
3 |
25858 | 4 /* This file implements the emacs_insque and emacs_remque functions, |
5 copies of the insque and remque functions of BSD. They and all | |
6 their callers have been renamed to emacs_mumble to allow us to | |
7 include this file in the menu library on all systems. */ | |
8 | |
9 | |
10 struct qelem { | |
11 struct qelem *q_forw; | |
12 struct qelem *q_back; | |
13 char q_data[1]; | |
14 }; | |
15 | |
16 /* Insert ELEM into a doubly-linked list, after PREV. */ | |
17 | |
18 void | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
25858
diff
changeset
|
19 emacs_insque (elem, prev) |
25858 | 20 struct qelem *elem, *prev; |
21 { | |
22 struct qelem *next = prev->q_forw; | |
23 prev->q_forw = elem; | |
24 if (next) | |
25 next->q_back = elem; | |
26 elem->q_forw = next; | |
27 elem->q_back = prev; | |
28 } | |
29 | |
30 /* Unlink ELEM from the doubly-linked list that it is in. */ | |
31 | |
32 emacs_remque (elem) | |
33 struct qelem *elem; | |
34 { | |
35 struct qelem *next = elem->q_forw; | |
36 struct qelem *prev = elem->q_back; | |
37 if (next) | |
38 next->q_back = prev; | |
39 if (prev) | |
40 prev->q_forw = next; | |
41 } | |
52401 | 42 |
43 /* arch-tag: a8719d1a-5c3f-4bce-b36b-173106d36165 | |
44 (do not change this comment) */ |