Mercurial > emacs
comparison src/emacs.c @ 21840:89d03805f45a
(main): Use Vbuffer_alist instead of Fbuffer_list.
(syms_of_emacs): Fix doc of Vsignal_USR1_hook and
Vsignal_USR2_hook.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Wed, 29 Apr 1998 09:35:31 +0000 |
parents | daf559874709 |
children | c452f82d8d45 |
comparison
equal
deleted
inserted
replaced
21839:376ce06ab12d | 21840:89d03805f45a |
---|---|
1013 old_log_max = Vmessage_log_max; | 1013 old_log_max = Vmessage_log_max; |
1014 XSETFASTINT (Vmessage_log_max, 0); | 1014 XSETFASTINT (Vmessage_log_max, 0); |
1015 message_dolog ("", 0, 1, 0); | 1015 message_dolog ("", 0, 1, 0); |
1016 Vmessage_log_max = old_log_max; | 1016 Vmessage_log_max = old_log_max; |
1017 | 1017 |
1018 for (tail = Fbuffer_list (); CONSP (tail); | 1018 for (tail = Vbuffer_alist; CONSP (tail); |
1019 tail = XCONS (tail)->cdr) | 1019 tail = XCONS (tail)->cdr) |
1020 { | 1020 { |
1021 Lisp_Object buffer; | 1021 Lisp_Object buffer; |
1022 | 1022 |
1023 buffer = XCONS (tail)->car; | 1023 buffer = Fcdr (XCONS (tail)->car); |
1024 /* Verify that all buffers are empty now, as they | 1024 /* Verify that all buffers are empty now, as they |
1025 ought to be. */ | 1025 ought to be. */ |
1026 if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer))) | 1026 if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer))) |
1027 abort (); | 1027 abort (); |
1028 /* It is safe to do this crudely in an empty buffer. */ | 1028 /* It is safe to do this crudely in an empty buffer. */ |
1837 see `kill-emacs-query-functions' instead."); | 1837 see `kill-emacs-query-functions' instead."); |
1838 Vkill_emacs_hook = Qnil; | 1838 Vkill_emacs_hook = Qnil; |
1839 | 1839 |
1840 #ifdef SIGUSR1 | 1840 #ifdef SIGUSR1 |
1841 DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook, | 1841 DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook, |
1842 "Hook to be run whenever emacs recieves a USR1 signal"); | 1842 "Hook to be run whenever emacs receives a USR1 signal"); |
1843 Vsignal_USR1_hook = Qnil; | 1843 Vsignal_USR1_hook = Qnil; |
1844 #ifdef SIGUSR2 | 1844 #ifdef SIGUSR2 |
1845 DEFVAR_LISP ("signal-USR2-hook", &Vsignal_USR2_hook, | 1845 DEFVAR_LISP ("signal-USR2-hook", &Vsignal_USR2_hook, |
1846 "Hook to be run whenever emacs recieves a USR2 signal"); | 1846 "Hook to be run whenever emacs receives a USR2 signal"); |
1847 Vsignal_USR2_hook = Qnil; | 1847 Vsignal_USR2_hook = Qnil; |
1848 #endif | 1848 #endif |
1849 #endif | 1849 #endif |
1850 | 1850 |
1851 | 1851 |