Mercurial > emacs
comparison src/xfns.c @ 34452:e381d256c0c2
(Fx_hide_tip): Fix last change.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 11 Dec 2000 21:13:10 +0000 |
| parents | 5de00bff5de3 |
| children | 329225ae6b61 |
comparison
equal
deleted
inserted
replaced
| 34451:be899eb7b171 | 34452:e381d256c0c2 |
|---|---|
| 10762 specbind (Qinhibit_redisplay, Qt); | 10762 specbind (Qinhibit_redisplay, Qt); |
| 10763 specbind (Qinhibit_quit, Qt); | 10763 specbind (Qinhibit_quit, Qt); |
| 10764 | 10764 |
| 10765 if (!NILP (tip_timer)) | 10765 if (!NILP (tip_timer)) |
| 10766 { | 10766 { |
| 10767 Lisp_Object tem = tip_timer; | 10767 Lisp_Object tem; |
| 10768 struct gcpro gcpro1; | |
| 10769 tem = tip_timer; | |
| 10770 GCPRO1 (tem); | |
| 10768 tip_timer = Qnil; | 10771 tip_timer = Qnil; |
| 10769 call1 (intern ("cancel-timer"), tem); | 10772 call1 (intern ("cancel-timer"), tem); |
| 10773 UNGCPRO; | |
| 10770 } | 10774 } |
| 10771 | 10775 |
| 10772 if (FRAMEP (tip_frame)) | 10776 if (FRAMEP (tip_frame)) |
| 10773 { | 10777 { |
| 10774 Lisp_Object frame; | 10778 Lisp_Object frame; |
| 10777 frame = tip_frame; | 10781 frame = tip_frame; |
| 10778 GCPRO1 (frame); | 10782 GCPRO1 (frame); |
| 10779 tip_frame = Qnil; | 10783 tip_frame = Qnil; |
| 10780 Fdelete_frame (frame, Qnil); | 10784 Fdelete_frame (frame, Qnil); |
| 10781 deleted = Qt; | 10785 deleted = Qt; |
| 10786 UNGCPRO; | |
| 10782 | 10787 |
| 10783 #ifdef USE_LUCID | 10788 #ifdef USE_LUCID |
| 10784 /* Bloodcurdling hack alert: The Lucid menu bar widget's | 10789 /* Bloodcurdling hack alert: The Lucid menu bar widget's |
| 10785 redisplay procedure is not called when a tip frame over menu | 10790 redisplay procedure is not called when a tip frame over menu |
| 10786 items is unmapped. Redisplay the menu manually... */ | 10791 items is unmapped. Redisplay the menu manually... */ |