aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaroly Lorentey2004-08-31 16:30:29 +0000
committerKaroly Lorentey2004-08-31 16:30:29 +0000
commitbfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef (patch)
tree961072e4fa30982489b86dd8bc831fe42fedc25e
parentd61858fb8b38da03f4a53f33e66b11e280533627 (diff)
parent2728b5d02c0686c40c49aebd00f7d5520b371aed (diff)
downloademacs-bfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef.tar.gz
emacs-bfe3b03c6a537ffbdfa25e3b16acd40ae6a833ef.zip
Merged in changes from CVS trunk (Jan Djärv has fixed the XSync call in xterm.c, no need to disable it anymore).
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-506 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-507 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-508 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-238
-rw-r--r--lisp/speedbar.el2
-rw-r--r--lisp/vc-svn.el13
-rw-r--r--man/ChangeLog14
-rw-r--r--man/display.texi3
-rw-r--r--man/kmacro.texi4
-rw-r--r--man/search.texi11
-rw-r--r--src/ChangeLog8
-rw-r--r--src/xfns.c10
-rw-r--r--src/xterm.c16
9 files changed, 58 insertions, 23 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 1a222e6004e..db16f2f78f3 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -665,7 +665,7 @@ useful, such as version control."
665 "*Regexp matching files we don't want displayed in a speedbar buffer. 665 "*Regexp matching files we don't want displayed in a speedbar buffer.
666It is generated from the variable `completion-ignored-extensions'") 666It is generated from the variable `completion-ignored-extensions'")
667 667
668;; Ugly compiler silencing trick. The real defvar comes later in this file. 668;; Compiler silencing trick. The real defvar comes later in this file.
669(defvar speedbar-file-regexp) 669(defvar speedbar-file-regexp)
670 670
671;; this is dangerous to customize, because the defaults will probably 671;; this is dangerous to customize, because the defaults will probably
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 82c09cbd435..fafb5eff7cd 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -1,6 +1,7 @@
1;;; vc-svn.el --- non-resident support for Subversion version-control 1;;; vc-svn.el --- non-resident support for Subversion version-control
2 2
3;; Copyright (C) 1995,98,99,2000,2001,02,2003 Free Software Foundation, Inc. 3;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004
4;; Free Software Foundation, Inc.
4 5
5;; Author: FSF (see vc.el for full credits) 6;; Author: FSF (see vc.el for full credits)
6;; Maintainer: Stefan Monnier <monnier@gnu.org> 7;; Maintainer: Stefan Monnier <monnier@gnu.org>
@@ -363,7 +364,10 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
363 (append (vc-switches nil 'diff) '("/dev/null"))) 364 (append (vc-switches nil 'diff) '("/dev/null")))
364 ;; Even if it's empty, it's locally modified. 365 ;; Even if it's empty, it's locally modified.
365 1) 366 1)
366 (let* ((switches (vc-switches 'SVN 'diff)) 367 (let* ((switches
368 (if vc-svn-diff-switches
369 (vc-switches 'SVN 'diff)
370 (list "-x" (mapconcat 'identity (vc-switches nil 'diff) " "))))
367 (async (and (vc-stay-local-p file) 371 (async (and (vc-stay-local-p file)
368 (or oldvers newvers) ; Svn diffs those locally. 372 (or oldvers newvers) ; Svn diffs those locally.
369 (fboundp 'start-process)))) 373 (fboundp 'start-process))))
@@ -371,8 +375,7 @@ The changes are between FIRST-VERSION and SECOND-VERSION."
371 (if async 'async 0) 375 (if async 'async 0)
372 file "diff" 376 file "diff"
373 (append 377 (append
374 (when switches 378 switches
375 (list "-x" (mapconcat 'identity switches " ")))
376 (when oldvers 379 (when oldvers
377 (list "-r" (if newvers (concat oldvers ":" newvers) 380 (list "-r" (if newvers (concat oldvers ":" newvers)
378 oldvers))))) 381 oldvers)))))
@@ -504,5 +507,5 @@ essential information."
504 507
505(provide 'vc-svn) 508(provide 'vc-svn)
506 509
507;;; arch-tag: 02f10c68-2b4d-453a-90fc-1eee6cfb268d 510;; arch-tag: 02f10c68-2b4d-453a-90fc-1eee6cfb268d
508;;; vc-svn.el ends here 511;;; vc-svn.el ends here
diff --git a/man/ChangeLog b/man/ChangeLog
index 5c0926de48a..72024ae917a 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,17 @@
12004-08-23 Luc Teirlinck <teirllm@auburn.edu>
2
3 * display.texi (Font Lock): Correct invalid @xref.
4
5 * search.texi (Regexps): Correct cryptic @ref.
6 (Configuring Scrolling): Correct invalid @xref.
7 (Regexp Replace): Standardize reference to hardcopy Elisp Manual
8 in @pxref.
9
102004-08-22 Luc Teirlinck <teirllm@auburn.edu>
11
12 * kmacro.texi (Keyboard Macro Counter, Keyboard Macro Step-Edit):
13 Change section names.
14
12004-08-22 David Kastrup <dak@gnu.org> 152004-08-22 David Kastrup <dak@gnu.org>
2 16
3 * reftex.texi (AUCTeX): Update links, section name. 17 * reftex.texi (AUCTeX): Update links, section name.
diff --git a/man/display.texi b/man/display.texi
index 2c530ec480a..b78eb8ab939 100644
--- a/man/display.texi
+++ b/man/display.texi
@@ -316,7 +316,8 @@ comments, use this:
316@findex font-lock-remove-keywords 316@findex font-lock-remove-keywords
317 To remove keywords from the font-lock highlighting patterns, use the 317 To remove keywords from the font-lock highlighting patterns, use the
318function @code{font-lock-remove-keywords}. @xref{Search-based 318function @code{font-lock-remove-keywords}. @xref{Search-based
319Fontification,,,elisp}, for documentation of the format of this list. 319Fontification,,, elisp, The Emacs Lisp Reference Manual}, for
320documentation of the format of this list.
320 321
321@cindex just-in-time (JIT) font-lock 322@cindex just-in-time (JIT) font-lock
322@cindex background syntax highlighting 323@cindex background syntax highlighting
diff --git a/man/kmacro.texi b/man/kmacro.texi
index a0b3a249bbd..d3c24873cd0 100644
--- a/man/kmacro.texi
+++ b/man/kmacro.texi
@@ -261,7 +261,7 @@ the macro ring.
261executes the previous (rather than the head) element on the macro ring. 261executes the previous (rather than the head) element on the macro ring.
262 262
263@node Keyboard Macro Counter 263@node Keyboard Macro Counter
264@section Inserting incrementing numbers in macros 264@section The Keyboard Macro Counter
265 265
266 Each keyboard macro has an associated counter which is automatically 266 Each keyboard macro has an associated counter which is automatically
267incremented on every repetition of the keyboard macro. Normally, the 267incremented on every repetition of the keyboard macro. Normally, the
@@ -449,7 +449,7 @@ keyboard input that you would use to invoke the macro---@kbd{C-x e} or
449@kbd{C-x C-k l} (@code{kmacro-edit-lossage}). 449@kbd{C-x C-k l} (@code{kmacro-edit-lossage}).
450 450
451@node Keyboard Macro Step-Edit 451@node Keyboard Macro Step-Edit
452@section Interactively executing and editing a keyboard macro 452@section Stepwise Editing a Keyboard Macro
453 453
454@findex kmacro-step-edit-macro 454@findex kmacro-step-edit-macro
455@kindex C-x C-k SPC 455@kindex C-x C-k SPC
diff --git a/man/search.texi b/man/search.texi
index c31bc60af62..a0c64275de0 100644
--- a/man/search.texi
+++ b/man/search.texi
@@ -434,7 +434,7 @@ Search}.
434 This manual describes regular expression features that users 434 This manual describes regular expression features that users
435typically want to use. There are additional features that are 435typically want to use. There are additional features that are
436mainly used in Lisp programs; see @ref{Regular Expressions,,, 436mainly used in Lisp programs; see @ref{Regular Expressions,,,
437elisp, the same manual}. 437elisp, The Emacs Lisp Reference Manual}.
438 438
439 Regular expressions have a syntax in which a few characters are 439 Regular expressions have a syntax in which a few characters are
440special constructs and the rest are @dfn{ordinary}. An ordinary 440special constructs and the rest are @dfn{ordinary}. An ordinary
@@ -921,7 +921,8 @@ The buffer contents.
921@item 921@item
922The selected window and selected frame. 922The selected window and selected frame.
923@item 923@item
924The current match-data @xref{Match Data,,,elisp}. 924The current match-data. @xref{Match Data,,, elisp, The Emacs Lisp
925Reference Manual}.
925@end enumerate 926@end enumerate
926 927
927Additionally, the command must not delete the current window and must 928Additionally, the command must not delete the current window and must
@@ -930,7 +931,7 @@ window's size, or create or delete other windows and frames.
930 931
931Note that an attempt by a command to scroll the text 932Note that an attempt by a command to scroll the text
932@emph{horizontally} won't work, although it will do no harm---any such 933@emph{horizontally} won't work, although it will do no harm---any such
933scrolling will be overriden and nullified by the display code. 934scrolling will be overridden and nullified by the display code.
934 935
935@node Replace, Other Repeating Search, Configuring Scrolling, Search 936@node Replace, Other Repeating Search, Configuring Scrolling, Search
936@section Replacement Commands 937@section Replacement Commands
@@ -1063,7 +1064,7 @@ M-x replace-regexp @key{RET} \(x\)\|y @key{RET}
1063@end example 1064@end example
1064 1065
1065 For computing replacement strings for @samp{\,}, the @code{format} 1066 For computing replacement strings for @samp{\,}, the @code{format}
1066function is often useful (@pxref{Formatting Strings,,,elisp, GNU Emacs 1067function is often useful (@pxref{Formatting Strings,,, elisp, The Emacs
1067Lisp Reference Manual}). For example, to add consecutively numbered 1068Lisp Reference Manual}). For example, to add consecutively numbered
1068strings like @samp{ABC00042} to columns 73 @w{to 80} (unless they are 1069strings like @samp{ABC00042} to columns 73 @w{to 80} (unless they are
1069already occupied), you can use 1070already occupied), you can use
@@ -1084,7 +1085,7 @@ M-x replace-regexp @key{RET} \footnote@{ @key{RET}
1084@end example 1085@end example
1085 1086
1086@noindent 1087@noindent
1087will add labels starting with @samp{\label@{fn:0@}} to occurences of 1088will add labels starting with @samp{\label@{fn:0@}} to occurrences of
1088@samp{\footnote@{}, but letting you edit each replacement before 1089@samp{\footnote@{}, but letting you edit each replacement before
1089performing it. To number the labels starting at 1, use @samp{\,(1+ 1090performing it. To number the labels starting at 1, use @samp{\,(1+
1090\#)} instead of @samp{\#}. 1091\#)} instead of @samp{\#}.
diff --git a/src/ChangeLog b/src/ChangeLog
index cbf06bc480f..d49514b2fc0 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,11 @@
12004-08-24 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
2
3 * xterm.c (x_catch_errors_unwind): Do not XSync if display has closed.
4
5 * xfns.c (x_window_to_frame, x_any_window_to_frame)
6 (x_non_menubar_window_to_frame, x_menubar_window_to_frame)
7 (x_top_window_to_frame): Return 0 if wdesc is None.
8
12004-08-22 Richard M. Stallman <rms@gnu.org> 92004-08-22 Richard M. Stallman <rms@gnu.org>
2 10
3 * process.c (process_send_signal) [SIGNALS_VIA_CHARACTERS, 11 * process.c (process_send_signal) [SIGNALS_VIA_CHARACTERS,
diff --git a/src/xfns.c b/src/xfns.c
index 762b45d0089..e03edbbec89 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -293,6 +293,8 @@ x_window_to_frame (dpyinfo, wdesc)
293 Lisp_Object tail, frame; 293 Lisp_Object tail, frame;
294 struct frame *f; 294 struct frame *f;
295 295
296 if (wdesc == None) return 0;
297
296 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) 298 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail))
297 { 299 {
298 frame = XCAR (tail); 300 frame = XCAR (tail);
@@ -342,6 +344,8 @@ x_any_window_to_frame (dpyinfo, wdesc)
342 struct frame *f, *found; 344 struct frame *f, *found;
343 struct x_output *x; 345 struct x_output *x;
344 346
347 if (wdesc == None) return NULL;
348
345 found = NULL; 349 found = NULL;
346 for (tail = Vframe_list; GC_CONSP (tail) && !found; tail = XCDR (tail)) 350 for (tail = Vframe_list; GC_CONSP (tail) && !found; tail = XCDR (tail))
347 { 351 {
@@ -396,6 +400,8 @@ x_non_menubar_window_to_frame (dpyinfo, wdesc)
396 struct frame *f; 400 struct frame *f;
397 struct x_output *x; 401 struct x_output *x;
398 402
403 if (wdesc == None) return 0;
404
399 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) 405 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail))
400 { 406 {
401 frame = XCAR (tail); 407 frame = XCAR (tail);
@@ -442,6 +448,8 @@ x_menubar_window_to_frame (dpyinfo, wdesc)
442 struct frame *f; 448 struct frame *f;
443 struct x_output *x; 449 struct x_output *x;
444 450
451 if (wdesc == None) return 0;
452
445 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) 453 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail))
446 { 454 {
447 frame = XCAR (tail); 455 frame = XCAR (tail);
@@ -487,6 +495,8 @@ x_top_window_to_frame (dpyinfo, wdesc)
487 struct frame *f; 495 struct frame *f;
488 struct x_output *x; 496 struct x_output *x;
489 497
498 if (wdesc == None) return 0;
499
490 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) 500 for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail))
491 { 501 {
492 frame = XCAR (tail); 502 frame = XCAR (tail);
diff --git a/src/xterm.c b/src/xterm.c
index eb455522d1c..c1edf49aca7 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -7608,15 +7608,13 @@ static Lisp_Object
7608x_catch_errors_unwind (old_val) 7608x_catch_errors_unwind (old_val)
7609 Lisp_Object old_val; 7609 Lisp_Object old_val;
7610{ 7610{
7611 Lisp_Object first; 7611 Lisp_Object first = XCAR (old_val);
7612 7612 Display *dpy = XSAVE_VALUE (first)->pointer;
7613 first = XCAR (old_val); 7613
7614 7614 /* The display may have been closed before this function is called.
7615#if 0 /* XXX This has dumped core on me several times when my X 7615 Check if it is still open before calling XSync. */
7616 server crashed. If this call is important, maybe we should 7616 if (x_display_info_for_display (dpy) != 0)
7617 check that the display is still alive. -- lorentey */ 7617 XSync (dpy, False);
7618 XSync (XSAVE_VALUE (first)->pointer, False);
7619#endif
7620 7618
7621 x_error_message_string = XCDR (old_val); 7619 x_error_message_string = XCDR (old_val);
7622 return Qnil; 7620 return Qnil;