aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-25 15:00:08 +0000
committerKaroly Lorentey2005-06-25 15:00:08 +0000
commit0d0358be7e741898e363d02dbff01b35c662413c (patch)
treee6bdb6ae792a8be712780a5cfad4eeddb09c4f43 /src
parentf4d9bf3a9be50a17c2e2f7569b88f3606ab273d9 (diff)
parentb93e3c3ba1644f5e746c7486bd609ba9fc7ec583 (diff)
downloademacs-0d0358be7e741898e363d02dbff01b35c662413c.tar.gz
emacs-0d0358be7e741898e363d02dbff01b35c662413c.zip
Merged from miles@gnu.org--gnu-2005 (patch 441-446)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-441 Update reference to renamed Buffer-menu-buffer face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-442 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-443 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-444 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-445 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-446 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-354
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog56
-rw-r--r--src/abbrev.c2
-rw-r--r--src/category.c2
-rw-r--r--src/dispnew.c4
-rw-r--r--src/editfns.c2
-rw-r--r--src/eval.c8
-rw-r--r--src/fileio.c6
-rw-r--r--src/frame.c6
-rw-r--r--src/image.c22
-rw-r--r--src/lread.c4
-rw-r--r--src/macfns.c20
-rw-r--r--src/process.c4
-rw-r--r--src/search.c20
-rw-r--r--src/syntax.c2
-rw-r--r--src/w32fns.c8
-rw-r--r--src/xdisp.c29
-rw-r--r--src/xfaces.c2
-rw-r--r--src/xselect.c2
18 files changed, 130 insertions, 69 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 659f1066efc..2ffb3c4959c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,45 @@
12005-06-23 Richard M. Stallman <rms@gnu.org>
2
3 * xdisp.c (get_next_display_element): Finish reversing the tests of
4 Vnobreak_char_display.
5
6 * xdisp.c (Vnobreak_char_display): Renamed from Vshow_nonbreak_escape.
7 All uses changed.
8 (Qnobreak_space): Renamed from Qno_break_space. All uses changed.
9 (syms_of_xdisp): Define nobreak-char-display and nobreak-space.
10
11 * fileio.c (Frename_file): Preserve owner and group, if possible,
12 when copying.
13
142005-06-23 Juanma Barranquero <lekktu@gmail.com>
15
16 * abbrev.c (Funexpand_abbrev):
17 * category.c (Fmake_category_set):
18 * dispnew.c (Fsleep_for, Fsit_for):
19 * editfns.c (Fsubst_char_in_region):
20 * eval.c (Fdefvar, Fdefconst, Feval, Ffuncall):
21 * frame.c (make_frame_without_minibuffer):
22 * lread.c (read_vector):
23 * macfns.c (check_x_frame):
24 * process.c (Fstop_process, Fcontinue_process):
25 * search.c (Freplace_match):
26 * syntax.c (Fstring_to_syntax):
27 * w32fns.c (check_x_frame, check_x_display_info):
28 * xfaces.c (x_supports_face_attributes_p):
29 * xselect.c (Fx_own_selection_internal): Follow error conventions.
30
31 * image.c (fn_png_init_io): Don't define it.
32 (init_png_functions) [HAVE_NTGUI]: Don't initialize fn_png_init_io.
33 (png_read_from_file): New function, based on png_read_from_memory.
34 (png_load): Use it, instead of fn_png_init_io.
35
362005-06-23 Kim F. Storm <storm@cua.dk>
37
38 * search.c (Fmatch_data): Remove evaporate option.
39 (Fset_match_data): Do not mention evaporate option in doc string.
40 Add commentary explaining evaporate arg (for internal use only).
41 (unwind_set_match_data): Add comment on evaporate use.
42
12005-06-22 Miles Bader <miles@gnu.org> 432005-06-22 Miles Bader <miles@gnu.org>
2 44
3 * xfaces.c (Qvertical_border): Renamed from `Qvertical_divider'. 45 * xfaces.c (Qvertical_border): Renamed from `Qvertical_divider'.
@@ -2799,7 +2841,7 @@
2799 2841
2800 * xdisp.c (expose_window, expose_frame): Remove kludges for Mac. 2842 * xdisp.c (expose_window, expose_frame): Remove kludges for Mac.
2801 2843
2802 * xfaces.c (clear_font_table) [MAC_OS]: call mac_unload_font. 2844 * xfaces.c (clear_font_table) [MAC_OS]: Call mac_unload_font.
2803 2845
28042004-12-27 Richard M. Stallman <rms@gnu.org> 28462004-12-27 Richard M. Stallman <rms@gnu.org>
2805 2847
@@ -2838,7 +2880,7 @@
2838 (xmenu_show): In no toolkit version, if menu returns NO_SELECT call 2880 (xmenu_show): In no toolkit version, if menu returns NO_SELECT call
2839 Fsignal to quit. 2881 Fsignal to quit.
2840 2882
2841 * xfns.c (Fx_file_dialog): Motif/Lesstif version: Pop down on C-g. 2883 * xfns.c (Fx_file_dialog): Motif/Lesstif version: Pop down on C-g.
2842 2884
2843 * gtkutil.c (xg_initialize): Install bindings for C-g so that 2885 * gtkutil.c (xg_initialize): Install bindings for C-g so that
2844 dialogs and menus pop down. 2886 dialogs and menus pop down.
@@ -3624,7 +3666,7 @@
36242004-11-12 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> 36662004-11-12 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
3625 3667
3626 * xmenu.c (x_menu_wait_for_event): New function. 3668 * xmenu.c (x_menu_wait_for_event): New function.
3627 (popup_get_selection, popup_widget_loop): Call x_menu_wait_for_event 3669 (popup_get_selection, popup_widget_loop): Call x_menu_wait_for_event
3628 to handle timers. 3670 to handle timers.
3629 (popup_widget_loop): Add argument do_timers. 3671 (popup_widget_loop): Add argument do_timers.
3630 (create_and_show_popup_menu, create_and_show_dialog): Pass 1 for 3672 (create_and_show_popup_menu, create_and_show_dialog): Pass 1 for
@@ -4002,7 +4044,7 @@
4002 4044
40032004-10-28 Will <will@glozer.net> 40452004-10-28 Will <will@glozer.net>
4004 4046
4005 * macterm.c: allow user to assign key modifiers to the Mac Option 4047 * macterm.c: Allow user to assign key modifiers to the Mac Option
4006 key via a 'mac-option-modifier' variable. 4048 key via a 'mac-option-modifier' variable.
4007 4049
40082004-10-28 Stefan Monnier <monnier@iro.umontreal.ca> 40502004-10-28 Stefan Monnier <monnier@iro.umontreal.ca>
@@ -4864,7 +4906,7 @@
4864 4906
4865 * keymap.c (Fset_keymap_parent, Fdefine_prefix_command): Doc fixes. 4907 * keymap.c (Fset_keymap_parent, Fdefine_prefix_command): Doc fixes.
4866 4908
4867 * keyboard.c (syms_of_keyboard) <disable-point-adjustment>: Doc fix. 4909 * keyboard.c (syms_of_keyboard) <disable-point-adjustment>: Doc fix.
4868 4910
4869 * callint.c (Fcall_interactively): Doc fix. 4911 * callint.c (Fcall_interactively): Doc fix.
4870 4912
@@ -8191,7 +8233,7 @@
8191 * fileio.c (Fread_file_name): Check use_file_dialog also before 8233 * fileio.c (Fread_file_name): Check use_file_dialog also before
8192 calling Fx_file_dialog. 8234 calling Fx_file_dialog.
8193 8235
8194 * fns.c: use_file_dialog: New variable. 8236 * fns.c (use_file_dialog): New variable.
8195 (syms_of_fns): DEFVAR_BOOL use-file-dialog. 8237 (syms_of_fns): DEFVAR_BOOL use-file-dialog.
8196 8238
81972003-11-29 Kim F. Storm <storm@cua.dk> 82392003-11-29 Kim F. Storm <storm@cua.dk>
@@ -11637,7 +11679,7 @@
11637 for USE_GTK. 11679 for USE_GTK.
11638 (x_scroll_bar_handle_click): Use this function for toolkit scrollbars 11680 (x_scroll_bar_handle_click): Use this function for toolkit scrollbars
11639 also. 11681 also.
11640 (handle_one_xevent): ButtonPress/Release: If event is for a toolkit 11682 (handle_one_xevent): ButtonPress/Release: If event is for a toolkit
11641 scrollbar and control is pressed, call x_scroll_bar_handle_click. 11683 scrollbar and control is pressed, call x_scroll_bar_handle_click.
11642 11684
11643 * gtkutil.h (xg_get_scroll_id_for_window): Declare. 11685 * gtkutil.h (xg_get_scroll_id_for_window): Declare.
diff --git a/src/abbrev.c b/src/abbrev.c
index ac132f20023..3883e35da31 100644
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -442,7 +442,7 @@ is not undone. */)
442 442
443 val = SYMBOL_VALUE (Vlast_abbrev); 443 val = SYMBOL_VALUE (Vlast_abbrev);
444 if (!STRINGP (val)) 444 if (!STRINGP (val))
445 error ("value of abbrev-symbol must be a string"); 445 error ("Value of `abbrev-symbol' must be a string");
446 zv_before = ZV; 446 zv_before = ZV;
447 del_range_byte (PT_BYTE, PT_BYTE + SBYTES (val), 1); 447 del_range_byte (PT_BYTE, PT_BYTE + SBYTES (val), 1);
448 /* Don't inherit properties here; just copy from old contents. */ 448 /* Don't inherit properties here; just copy from old contents. */
diff --git a/src/category.c b/src/category.c
index b7eadd0e771..1cae5a6e756 100644
--- a/src/category.c
+++ b/src/category.c
@@ -67,7 +67,7 @@ those categories. */)
67 val = MAKE_CATEGORY_SET; 67 val = MAKE_CATEGORY_SET;
68 68
69 if (STRING_MULTIBYTE (categories)) 69 if (STRING_MULTIBYTE (categories))
70 error ("Multibyte string in make-category-set"); 70 error ("Multibyte string in `make-category-set'");
71 71
72 len = SCHARS (categories); 72 len = SCHARS (categories);
73 while (--len >= 0) 73 while (--len >= 0)
diff --git a/src/dispnew.c b/src/dispnew.c
index c5256142588..cc9e6152d1a 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -6374,7 +6374,7 @@ Emacs was built without floating point support.
6374 6374
6375#ifndef EMACS_HAS_USECS 6375#ifndef EMACS_HAS_USECS
6376 if (sec == 0 && usec != 0) 6376 if (sec == 0 && usec != 0)
6377 error ("millisecond `sleep-for' not supported on %s", SYSTEM_TYPE); 6377 error ("Millisecond `sleep-for' not supported on %s", SYSTEM_TYPE);
6378#endif 6378#endif
6379 6379
6380 /* Assure that 0 <= usec < 1000000. */ 6380 /* Assure that 0 <= usec < 1000000. */
@@ -6474,7 +6474,7 @@ usage: (sit-for SECONDS &optional NODISP OLD-NODISP) */)
6474 6474
6475#ifndef EMACS_HAS_USECS 6475#ifndef EMACS_HAS_USECS
6476 if (usec != 0 && sec == 0) 6476 if (usec != 0 && sec == 0)
6477 error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE); 6477 error ("Millisecond `sit-for' not supported on %s", SYSTEM_TYPE);
6478#endif 6478#endif
6479 6479
6480 return sit_for (sec, usec, 0, NILP (nodisp), NILP (nodisp)); 6480 return sit_for (sec, usec, 0, NILP (nodisp), NILP (nodisp));
diff --git a/src/editfns.c b/src/editfns.c
index 4bc5336e997..a7296c4428f 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2660,7 +2660,7 @@ Both characters must have the same length of multi-byte form. */)
2660 { 2660 {
2661 len = CHAR_STRING (XFASTINT (fromchar), fromstr); 2661 len = CHAR_STRING (XFASTINT (fromchar), fromstr);
2662 if (CHAR_STRING (XFASTINT (tochar), tostr) != len) 2662 if (CHAR_STRING (XFASTINT (tochar), tostr) != len)
2663 error ("Characters in subst-char-in-region have different byte-lengths"); 2663 error ("Characters in `subst-char-in-region' have different byte-lengths");
2664 if (!ASCII_BYTE_P (*tostr)) 2664 if (!ASCII_BYTE_P (*tostr))
2665 { 2665 {
2666 /* If *TOSTR is in the range 0x80..0x9F and TOCHAR is not a 2666 /* If *TOSTR is in the range 0x80..0x9F and TOCHAR is not a
diff --git a/src/eval.c b/src/eval.c
index 445eb283114..8ad289fd51f 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -785,7 +785,7 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */)
785 sym = Fcar (args); 785 sym = Fcar (args);
786 tail = Fcdr (args); 786 tail = Fcdr (args);
787 if (!NILP (Fcdr (Fcdr (tail)))) 787 if (!NILP (Fcdr (Fcdr (tail))))
788 error ("too many arguments"); 788 error ("Too many arguments");
789 789
790 tem = Fdefault_boundp (sym); 790 tem = Fdefault_boundp (sym);
791 if (!NILP (tail)) 791 if (!NILP (tail))
@@ -845,7 +845,7 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */)
845 845
846 sym = Fcar (args); 846 sym = Fcar (args);
847 if (!NILP (Fcdr (Fcdr (Fcdr (args))))) 847 if (!NILP (Fcdr (Fcdr (Fcdr (args)))))
848 error ("too many arguments"); 848 error ("Too many arguments");
849 849
850 tem = Feval (Fcar (Fcdr (args))); 850 tem = Feval (Fcar (Fcdr (args)));
851 if (!NILP (Vpurify_flag)) 851 if (!NILP (Vpurify_flag))
@@ -2037,7 +2037,7 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0,
2037 if (max_lisp_eval_depth < 100) 2037 if (max_lisp_eval_depth < 100)
2038 max_lisp_eval_depth = 100; 2038 max_lisp_eval_depth = 100;
2039 if (lisp_eval_depth > max_lisp_eval_depth) 2039 if (lisp_eval_depth > max_lisp_eval_depth)
2040 error ("Lisp nesting exceeds max-lisp-eval-depth"); 2040 error ("Lisp nesting exceeds `max-lisp-eval-depth'");
2041 } 2041 }
2042 2042
2043 original_fun = Fcar (form); 2043 original_fun = Fcar (form);
@@ -2733,7 +2733,7 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */)
2733 if (max_lisp_eval_depth < 100) 2733 if (max_lisp_eval_depth < 100)
2734 max_lisp_eval_depth = 100; 2734 max_lisp_eval_depth = 100;
2735 if (lisp_eval_depth > max_lisp_eval_depth) 2735 if (lisp_eval_depth > max_lisp_eval_depth)
2736 error ("Lisp nesting exceeds max-lisp-eval-depth"); 2736 error ("Lisp nesting exceeds `max-lisp-eval-depth'");
2737 } 2737 }
2738 2738
2739 backtrace.next = backtrace_list; 2739 backtrace.next = backtrace_list;
diff --git a/src/fileio.c b/src/fileio.c
index c38cb924c8b..075f12ccb21 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2777,6 +2777,7 @@ This is what happens in interactive use with M-x. */)
2777 { 2777 {
2778 if (errno == EXDEV) 2778 if (errno == EXDEV)
2779 { 2779 {
2780 struct stat data;
2780#ifdef S_IFLNK 2781#ifdef S_IFLNK
2781 symlink_target = Ffile_symlink_p (file); 2782 symlink_target = Ffile_symlink_p (file);
2782 if (! NILP (symlink_target)) 2783 if (! NILP (symlink_target))
@@ -2789,6 +2790,11 @@ This is what happens in interactive use with M-x. */)
2789 so don't have copy-file prompt again. */ 2790 so don't have copy-file prompt again. */
2790 NILP (ok_if_already_exists) ? Qnil : Qt, 2791 NILP (ok_if_already_exists) ? Qnil : Qt,
2791 Qt, Qnil); 2792 Qt, Qnil);
2793
2794 /* Preserve owner and group, if possible (if we are root). */
2795 if (stat (SDATA (encoded_file), &data) >= 0)
2796 chown (SDATA (encoded_file), data.st_uid, data.st_gid);
2797
2792 Fdelete_file (file); 2798 Fdelete_file (file);
2793 } 2799 }
2794 else 2800 else
diff --git a/src/frame.c b/src/frame.c
index 62dba4d4d15..6a54e26121f 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -426,7 +426,7 @@ make_frame_without_minibuffer (mini_window, kb, display)
426#ifdef MULTI_KBOARD 426#ifdef MULTI_KBOARD
427 if (!NILP (mini_window) 427 if (!NILP (mini_window)
428 && XFRAME (XWINDOW (mini_window)->frame)->kboard != kb) 428 && XFRAME (XWINDOW (mini_window)->frame)->kboard != kb)
429 error ("frame and minibuffer must be on the same display"); 429 error ("Frame and minibuffer must be on the same display");
430#endif 430#endif
431 431
432 /* Make a frame containing just a root window. */ 432 /* Make a frame containing just a root window. */
@@ -3609,7 +3609,7 @@ extern char *x_get_string_resource P_ ((XrmDatabase, char *, char *));
3609extern Display_Info *check_x_display_info P_ ((Lisp_Object)); 3609extern Display_Info *check_x_display_info P_ ((Lisp_Object));
3610 3610
3611 3611
3612/* Get specified attribute from resource database RDB. 3612/* Get specified attribute from resource database RDB.
3613 See Fx_get_resource below for other parameters. */ 3613 See Fx_get_resource below for other parameters. */
3614 3614
3615static Lisp_Object 3615static Lisp_Object
@@ -3746,7 +3746,7 @@ x_get_resource_string (attribute, class)
3746 3746
3747Lisp_Object 3747Lisp_Object
3748x_get_arg (dpyinfo, alist, param, attribute, class, type) 3748x_get_arg (dpyinfo, alist, param, attribute, class, type)
3749 Display_Info *dpyinfo; 3749 Display_Info *dpyinfo;
3750 Lisp_Object alist, param; 3750 Lisp_Object alist, param;
3751 char *attribute; 3751 char *attribute;
3752 char *class; 3752 char *class;
diff --git a/src/image.c b/src/image.c
index 462294b33b4..b2d0cf4ff50 100644
--- a/src/image.c
+++ b/src/image.c
@@ -5631,7 +5631,6 @@ DEF_IMGLIB_FN (png_create_read_struct);
5631DEF_IMGLIB_FN (png_create_info_struct); 5631DEF_IMGLIB_FN (png_create_info_struct);
5632DEF_IMGLIB_FN (png_destroy_read_struct); 5632DEF_IMGLIB_FN (png_destroy_read_struct);
5633DEF_IMGLIB_FN (png_set_read_fn); 5633DEF_IMGLIB_FN (png_set_read_fn);
5634DEF_IMGLIB_FN (png_init_io);
5635DEF_IMGLIB_FN (png_set_sig_bytes); 5634DEF_IMGLIB_FN (png_set_sig_bytes);
5636DEF_IMGLIB_FN (png_read_info); 5635DEF_IMGLIB_FN (png_read_info);
5637DEF_IMGLIB_FN (png_get_IHDR); 5636DEF_IMGLIB_FN (png_get_IHDR);
@@ -5663,7 +5662,6 @@ init_png_functions (Lisp_Object libraries)
5663 LOAD_IMGLIB_FN (library, png_create_info_struct); 5662 LOAD_IMGLIB_FN (library, png_create_info_struct);
5664 LOAD_IMGLIB_FN (library, png_destroy_read_struct); 5663 LOAD_IMGLIB_FN (library, png_destroy_read_struct);
5665 LOAD_IMGLIB_FN (library, png_set_read_fn); 5664 LOAD_IMGLIB_FN (library, png_set_read_fn);
5666 LOAD_IMGLIB_FN (library, png_init_io);
5667 LOAD_IMGLIB_FN (library, png_set_sig_bytes); 5665 LOAD_IMGLIB_FN (library, png_set_sig_bytes);
5668 LOAD_IMGLIB_FN (library, png_read_info); 5666 LOAD_IMGLIB_FN (library, png_read_info);
5669 LOAD_IMGLIB_FN (library, png_get_IHDR); 5667 LOAD_IMGLIB_FN (library, png_get_IHDR);
@@ -5689,7 +5687,6 @@ init_png_functions (Lisp_Object libraries)
5689#define fn_png_create_info_struct png_create_info_struct 5687#define fn_png_create_info_struct png_create_info_struct
5690#define fn_png_destroy_read_struct png_destroy_read_struct 5688#define fn_png_destroy_read_struct png_destroy_read_struct
5691#define fn_png_set_read_fn png_set_read_fn 5689#define fn_png_set_read_fn png_set_read_fn
5692#define fn_png_init_io png_init_io
5693#define fn_png_set_sig_bytes png_set_sig_bytes 5690#define fn_png_set_sig_bytes png_set_sig_bytes
5694#define fn_png_read_info png_read_info 5691#define fn_png_read_info png_read_info
5695#define fn_png_get_IHDR png_get_IHDR 5692#define fn_png_get_IHDR png_get_IHDR
@@ -5762,6 +5759,23 @@ png_read_from_memory (png_ptr, data, length)
5762} 5759}
5763 5760
5764 5761
5762/* Function set as reader function when reading PNG image from a file.
5763 PNG_PTR is a pointer to the PNG control structure. Copy LENGTH
5764 bytes from the input to DATA. */
5765
5766static void
5767png_read_from_file (png_ptr, data, length)
5768 png_structp png_ptr;
5769 png_bytep data;
5770 png_size_t length;
5771{
5772 FILE *fp = (FILE *) fn_png_get_io_ptr (png_ptr);
5773
5774 if (fread (data, 1, length, fp) < length)
5775 fn_png_error (png_ptr, "Read error");
5776}
5777
5778
5765/* Load PNG image IMG for use on frame F. Value is non-zero if 5779/* Load PNG image IMG for use on frame F. Value is non-zero if
5766 successful. */ 5780 successful. */
5767 5781
@@ -5895,7 +5909,7 @@ png_load (f, img)
5895 if (!NILP (specified_data)) 5909 if (!NILP (specified_data))
5896 fn_png_set_read_fn (png_ptr, (void *) &tbr, png_read_from_memory); 5910 fn_png_set_read_fn (png_ptr, (void *) &tbr, png_read_from_memory);
5897 else 5911 else
5898 fn_png_init_io (png_ptr, fp); 5912 fn_png_set_read_fn (png_ptr, (void *) fp, png_read_from_file);
5899 5913
5900 fn_png_set_sig_bytes (png_ptr, sizeof sig); 5914 fn_png_set_sig_bytes (png_ptr, sizeof sig);
5901 fn_png_read_info (png_ptr, info_ptr); 5915 fn_png_read_info (png_ptr, info_ptr);
diff --git a/src/lread.c b/src/lread.c
index ffc7d87d977..773696ed946 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2846,7 +2846,7 @@ read_vector (readcharfun, bytecodeflag)
2846 if (i == COMPILED_BYTECODE) 2846 if (i == COMPILED_BYTECODE)
2847 { 2847 {
2848 if (!STRINGP (item)) 2848 if (!STRINGP (item))
2849 error ("invalid byte code"); 2849 error ("Invalid byte code");
2850 2850
2851 /* Delay handling the bytecode slot until we know whether 2851 /* Delay handling the bytecode slot until we know whether
2852 it is lazily-loaded (we can tell by whether the 2852 it is lazily-loaded (we can tell by whether the
@@ -2868,7 +2868,7 @@ read_vector (readcharfun, bytecodeflag)
2868 2868
2869 item = Fread (bytestr); 2869 item = Fread (bytestr);
2870 if (!CONSP (item)) 2870 if (!CONSP (item))
2871 error ("invalid byte code"); 2871 error ("Invalid byte code");
2872 2872
2873 otem = XCONS (item); 2873 otem = XCONS (item);
2874 bytestr = XCAR (item); 2874 bytestr = XCAR (item);
diff --git a/src/macfns.c b/src/macfns.c
index b26baf3eaf7..da1afa13bd8 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -208,7 +208,7 @@ check_x_frame (frame)
208 CHECK_LIVE_FRAME (frame); 208 CHECK_LIVE_FRAME (frame);
209 f = XFRAME (frame); 209 f = XFRAME (frame);
210 if (! FRAME_MAC_P (f)) 210 if (! FRAME_MAC_P (f))
211 error ("non-mac frame used"); 211 error ("Non-Mac frame used");
212 return f; 212 return f;
213} 213}
214 214
@@ -4241,7 +4241,7 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4241 NavTypeListHandle fileTypes = NULL; 4241 NavTypeListHandle fileTypes = NULL;
4242 NavUserAction userAction; 4242 NavUserAction userAction;
4243 CFStringRef message=NULL, saveName = NULL; 4243 CFStringRef message=NULL, saveName = NULL;
4244 4244
4245 BLOCK_INPUT; 4245 BLOCK_INPUT;
4246 /* No need for a callback function because we are modal */ 4246 /* No need for a callback function because we are modal */
4247 NavGetDefaultDialogCreationOptions(&options); 4247 NavGetDefaultDialogCreationOptions(&options);
@@ -4265,8 +4265,8 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4265 if (!NILP (only_dir_p)) 4265 if (!NILP (only_dir_p))
4266 status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP, 4266 status = NavCreateChooseFolderDialog(&options, mac_nav_event_callbackUPP,
4267 NULL, NULL, &dialogRef); 4267 NULL, NULL, &dialogRef);
4268 else if (NILP (mustmatch)) 4268 else if (NILP (mustmatch))
4269 { 4269 {
4270 /* This is a save dialog */ 4270 /* This is a save dialog */
4271 options.optionFlags |= kNavDontConfirmReplacement; 4271 options.optionFlags |= kNavDontConfirmReplacement;
4272 options.actionButtonLabel = CFSTR ("Ok"); 4272 options.actionButtonLabel = CFSTR ("Ok");
@@ -4283,7 +4283,7 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4283 options.saveFileName = saveName; 4283 options.saveFileName = saveName;
4284 options.optionFlags |= kNavSelectDefaultLocation; 4284 options.optionFlags |= kNavSelectDefaultLocation;
4285 } 4285 }
4286 status = NavCreatePutFileDialog(&options, 4286 status = NavCreatePutFileDialog(&options,
4287 'TEXT', kNavGenericSignature, 4287 'TEXT', kNavGenericSignature,
4288 mac_nav_event_callbackUPP, NULL, 4288 mac_nav_event_callbackUPP, NULL,
4289 &dialogRef); 4289 &dialogRef);
@@ -4295,7 +4295,7 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4295 mac_nav_event_callbackUPP, NULL, 4295 mac_nav_event_callbackUPP, NULL,
4296 NULL, NULL, &dialogRef); 4296 NULL, NULL, &dialogRef);
4297 } 4297 }
4298 4298
4299 /* Set the default location and continue*/ 4299 /* Set the default location and continue*/
4300 if (status == noErr) 4300 if (status == noErr)
4301 { 4301 {
@@ -4307,7 +4307,7 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4307 FSSpec defLoc; 4307 FSSpec defLoc;
4308 status = posix_pathname_to_fsspec (SDATA (ENCODE_FILE (dir)), &defLoc); 4308 status = posix_pathname_to_fsspec (SDATA (ENCODE_FILE (dir)), &defLoc);
4309#endif 4309#endif
4310 if (status == noErr) 4310 if (status == noErr)
4311 { 4311 {
4312#ifdef MAC_OSX 4312#ifdef MAC_OSX
4313 AECreateDesc(typeFSRef, &defLoc, sizeof(FSRef), &defLocAed); 4313 AECreateDesc(typeFSRef, &defLoc, sizeof(FSRef), &defLocAed);
@@ -4359,7 +4359,7 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4359 int len = strlen(filename); 4359 int len = strlen(filename);
4360 if (len && filename[len-1] != '/') 4360 if (len && filename[len-1] != '/')
4361 filename[len++] = '/'; 4361 filename[len++] = '/';
4362 CFStringGetCString(reply.saveFileName, filename+len, 4362 CFStringGetCString(reply.saveFileName, filename+len,
4363 sizeof (filename) - len, 4363 sizeof (filename) - len,
4364#if MAC_OSX 4364#if MAC_OSX
4365 kCFStringEncodingUTF8 4365 kCFStringEncodingUTF8
@@ -4387,11 +4387,11 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
4387 } 4387 }
4388 4388
4389 UNGCPRO; 4389 UNGCPRO;
4390 4390
4391 /* Make "Cancel" equivalent to C-g. */ 4391 /* Make "Cancel" equivalent to C-g. */
4392 if (NILP (file)) 4392 if (NILP (file))
4393 Fsignal (Qquit, Qnil); 4393 Fsignal (Qquit, Qnil);
4394 4394
4395 return unbind_to (count, file); 4395 return unbind_to (count, file);
4396} 4396}
4397 4397
diff --git a/src/process.c b/src/process.c
index 46808674a0d..5ef0dd3f5f2 100644
--- a/src/process.c
+++ b/src/process.c
@@ -5835,7 +5835,7 @@ If PROCESS is a network process, inhibit handling of incoming traffic. */)
5835 } 5835 }
5836#endif 5836#endif
5837#ifndef SIGTSTP 5837#ifndef SIGTSTP
5838 error ("no SIGTSTP support"); 5838 error ("No SIGTSTP support");
5839#else 5839#else
5840 process_send_signal (process, SIGTSTP, current_group, 0); 5840 process_send_signal (process, SIGTSTP, current_group, 0);
5841#endif 5841#endif
@@ -5869,7 +5869,7 @@ If PROCESS is a network process, resume handling of incoming traffic. */)
5869#ifdef SIGCONT 5869#ifdef SIGCONT
5870 process_send_signal (process, SIGCONT, current_group, 0); 5870 process_send_signal (process, SIGCONT, current_group, 0);
5871#else 5871#else
5872 error ("no SIGCONT support"); 5872 error ("No SIGCONT support");
5873#endif 5873#endif
5874 return process; 5874 return process;
5875} 5875}
diff --git a/src/search.c b/src/search.c
index c1f2fd77cec..ae2d3234332 100644
--- a/src/search.c
+++ b/src/search.c
@@ -2296,7 +2296,7 @@ since only regular expressions have distinguished subexpressions. */)
2296 /* but some C compilers blew it */ 2296 /* but some C compilers blew it */
2297 2297
2298 if (search_regs.num_regs <= 0) 2298 if (search_regs.num_regs <= 0)
2299 error ("replace-match called before any match found"); 2299 error ("`replace-match' called before any match found");
2300 2300
2301 if (NILP (subexp)) 2301 if (NILP (subexp))
2302 sub = 0; 2302 sub = 0;
@@ -2758,9 +2758,6 @@ is done.
2758If optional third arg RESEAT is non-nil, any previous markers on the 2758If optional third arg RESEAT is non-nil, any previous markers on the
2759REUSE list will be modified to point to nowhere. 2759REUSE list will be modified to point to nowhere.
2760 2760
2761If RESEAT is `evaporate', put markers back on the free list.
2762Note: No other references to the markers must exist if you use this.
2763
2764Return value is undefined if the last search failed. */) 2761Return value is undefined if the last search failed. */)
2765 (integers, reuse, reseat) 2762 (integers, reuse, reseat)
2766 Lisp_Object integers, reuse, reseat; 2763 Lisp_Object integers, reuse, reseat;
@@ -2773,10 +2770,7 @@ Return value is undefined if the last search failed. */)
2773 for (tail = reuse; CONSP (tail); tail = XCDR (tail)) 2770 for (tail = reuse; CONSP (tail); tail = XCDR (tail))
2774 if (MARKERP (XCAR (tail))) 2771 if (MARKERP (XCAR (tail)))
2775 { 2772 {
2776 if (EQ (reseat, Qevaporate)) 2773 unchain_marker (XMARKER (XCAR (tail)));
2777 free_marker (XCAR (tail));
2778 else
2779 unchain_marker (XMARKER (XCAR (tail)));
2780 XSETCAR (tail, Qnil); 2774 XSETCAR (tail, Qnil);
2781 } 2775 }
2782 2776
@@ -2851,14 +2845,17 @@ Return value is undefined if the last search failed. */)
2851 return reuse; 2845 return reuse;
2852} 2846}
2853 2847
2848/* Internal usage only:
2849 If RESEAT is `evaporate', put the markers back on the free list
2850 immediately. No other references to the markers must exist in this case,
2851 so it is used only internally on the unwind stack and save-match-data from
2852 Lisp. */
2854 2853
2855DEFUN ("set-match-data", Fset_match_data, Sset_match_data, 1, 2, 0, 2854DEFUN ("set-match-data", Fset_match_data, Sset_match_data, 1, 2, 0,
2856 doc: /* Set internal data on last search match from elements of LIST. 2855 doc: /* Set internal data on last search match from elements of LIST.
2857LIST should have been created by calling `match-data' previously. 2856LIST should have been created by calling `match-data' previously.
2858 2857
2859If optional arg RESEAT is non-nil, make markers on LIST point nowhere. 2858If optional arg RESEAT is non-nil, make markers on LIST point nowhere. */)
2860If RESEAT is `evaporate', put the markers back on the free list.
2861Note: No other references to the markers must exist if you use this. */)
2862 (list, reseat) 2859 (list, reseat)
2863 register Lisp_Object list, reseat; 2860 register Lisp_Object list, reseat;
2864{ 2861{
@@ -3026,6 +3023,7 @@ static Lisp_Object
3026unwind_set_match_data (list) 3023unwind_set_match_data (list)
3027 Lisp_Object list; 3024 Lisp_Object list;
3028{ 3025{
3026 /* It is safe to free (evaporate) the markers immediately. */
3029 return Fset_match_data (list, Qevaporate); 3027 return Fset_match_data (list, Qevaporate);
3030} 3028}
3031 3029
diff --git a/src/syntax.c b/src/syntax.c
index fa34c2433c1..52067b8f8fa 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -923,7 +923,7 @@ text property. */)
923 p = SDATA (string); 923 p = SDATA (string);
924 code = (enum syntaxcode) syntax_spec_code[*p++]; 924 code = (enum syntaxcode) syntax_spec_code[*p++];
925 if (((int) code & 0377) == 0377) 925 if (((int) code & 0377) == 0377)
926 error ("invalid syntax description letter: %c", p[-1]); 926 error ("Invalid syntax description letter: %c", p[-1]);
927 927
928 if (code == Sinherit) 928 if (code == Sinherit)
929 return Qnil; 929 return Qnil;
diff --git a/src/w32fns.c b/src/w32fns.c
index 6a2f98c4c7d..e9af1b8ce2f 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -329,7 +329,7 @@ check_x_frame (frame)
329 CHECK_LIVE_FRAME (frame); 329 CHECK_LIVE_FRAME (frame);
330 f = XFRAME (frame); 330 f = XFRAME (frame);
331 if (! FRAME_W32_P (f)) 331 if (! FRAME_W32_P (f))
332 error ("non-w32 frame used"); 332 error ("Non-W32 frame used");
333 return f; 333 return f;
334} 334}
335 335
@@ -359,7 +359,7 @@ check_x_display_info (frame)
359 CHECK_LIVE_FRAME (frame); 359 CHECK_LIVE_FRAME (frame);
360 f = XFRAME (frame); 360 f = XFRAME (frame);
361 if (! FRAME_W32_P (f)) 361 if (! FRAME_W32_P (f))
362 error ("non-w32 frame used"); 362 error ("Non-W32 frame used");
363 return FRAME_W32_DISPLAY_INFO (f); 363 return FRAME_W32_DISPLAY_INFO (f);
364 } 364 }
365} 365}
@@ -7771,7 +7771,7 @@ typedef struct
7771 DWORD FlagsEx; 7771 DWORD FlagsEx;
7772} NEWOPENFILENAME; 7772} NEWOPENFILENAME;
7773 7773
7774 7774
7775DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0, 7775DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
7776 doc: /* Read file name, prompting with PROMPT in directory DIR. 7776 doc: /* Read file name, prompting with PROMPT in directory DIR.
7777Use a file selection dialog. 7777Use a file selection dialog.
@@ -7823,7 +7823,7 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
7823 NEWOPENFILENAME new_file_details; 7823 NEWOPENFILENAME new_file_details;
7824 BOOL file_opened = FALSE; 7824 BOOL file_opened = FALSE;
7825 OPENFILENAME * file_details = &new_file_details.real_details; 7825 OPENFILENAME * file_details = &new_file_details.real_details;
7826 7826
7827 /* Prevent redisplay. */ 7827 /* Prevent redisplay. */
7828 specbind (Qinhibit_redisplay, Qt); 7828 specbind (Qinhibit_redisplay, Qt);
7829 BLOCK_INPUT; 7829 BLOCK_INPUT;
diff --git a/src/xdisp.c b/src/xdisp.c
index 6c11440dd1a..e92c3e9b1ce 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -320,7 +320,7 @@ Lisp_Object Vshow_trailing_whitespace;
320 320
321/* Non-nil means escape non-break space and hyphens. */ 321/* Non-nil means escape non-break space and hyphens. */
322 322
323Lisp_Object Vshow_nonbreak_escape; 323Lisp_Object Vnobreak_char_display;
324 324
325#ifdef HAVE_WINDOW_SYSTEM 325#ifdef HAVE_WINDOW_SYSTEM
326extern Lisp_Object Voverflow_newline_into_fringe; 326extern Lisp_Object Voverflow_newline_into_fringe;
@@ -352,7 +352,7 @@ Lisp_Object Qescape_glyph;
352 352
353/* Name and number of the face used to highlight non-breaking spaces. */ 353/* Name and number of the face used to highlight non-breaking spaces. */
354 354
355Lisp_Object Qno_break_space; 355Lisp_Object Qnobreak_space;
356 356
357/* The symbol `image' which is the car of the lists used to represent 357/* The symbol `image' which is the car of the lists used to represent
358 images in Lisp. */ 358 images in Lisp. */
@@ -5084,7 +5084,7 @@ get_next_display_element (it)
5084 ? ((it->c >= 127 5084 ? ((it->c >= 127
5085 && it->len == 1) 5085 && it->len == 1)
5086 || !CHAR_PRINTABLE_P (it->c) 5086 || !CHAR_PRINTABLE_P (it->c)
5087 || (!NILP (Vshow_nonbreak_escape) 5087 || (!NILP (Vnobreak_char_display)
5088 && (it->c == 0x8a0 || it->c == 0x8ad 5088 && (it->c == 0x8a0 || it->c == 0x8ad
5089 || it->c == 0x920 || it->c == 0x92d 5089 || it->c == 0x920 || it->c == 0x92d
5090 || it->c == 0xe20 || it->c == 0xe2d 5090 || it->c == 0xe20 || it->c == 0xe2d
@@ -5139,12 +5139,12 @@ get_next_display_element (it)
5139 /* Handle non-break space in the mode where it only gets 5139 /* Handle non-break space in the mode where it only gets
5140 highlighting. */ 5140 highlighting. */
5141 5141
5142 if (EQ (Vshow_nonbreak_escape, Qt) 5142 if (EQ (Vnobreak_char_display, Qt)
5143 && (it->c == 0x8a0 || it->c == 0x920 5143 && (it->c == 0x8a0 || it->c == 0x920
5144 || it->c == 0xe20 || it->c == 0xf20)) 5144 || it->c == 0xe20 || it->c == 0xf20))
5145 { 5145 {
5146 /* Merge the no-break-space face into the current face. */ 5146 /* Merge the no-break-space face into the current face. */
5147 face_id = merge_faces (it->f, Qno_break_space, 0, 5147 face_id = merge_faces (it->f, Qnobreak_space, 0,
5148 it->face_id); 5148 it->face_id);
5149 5149
5150 g = it->c = ' '; 5150 g = it->c = ' ';
@@ -5183,7 +5183,7 @@ get_next_display_element (it)
5183 /* Handle soft hyphens in the mode where they only get 5183 /* Handle soft hyphens in the mode where they only get
5184 highlighting. */ 5184 highlighting. */
5185 5185
5186 if (! EQ (Vshow_nonbreak_escape, Qt) 5186 if (EQ (Vnobreak_char_display, Qt)
5187 && (it->c == 0x8ad || it->c == 0x92d 5187 && (it->c == 0x8ad || it->c == 0x92d
5188 || it->c == 0xe2d || it->c == 0xf2d)) 5188 || it->c == 0xe2d || it->c == 0xf2d))
5189 { 5189 {
@@ -22785,8 +22785,8 @@ syms_of_xdisp ()
22785 staticpro (&Qtrailing_whitespace); 22785 staticpro (&Qtrailing_whitespace);
22786 Qescape_glyph = intern ("escape-glyph"); 22786 Qescape_glyph = intern ("escape-glyph");
22787 staticpro (&Qescape_glyph); 22787 staticpro (&Qescape_glyph);
22788 Qno_break_space = intern ("no-break-space"); 22788 Qnobreak_space = intern ("nobreak-space");
22789 staticpro (&Qno_break_space); 22789 staticpro (&Qnobreak_space);
22790 Qimage = intern ("image"); 22790 Qimage = intern ("image");
22791 staticpro (&Qimage); 22791 staticpro (&Qimage);
22792 QCmap = intern (":map"); 22792 QCmap = intern (":map");
@@ -22892,13 +22892,14 @@ wide as that tab on the display. */);
22892The face used for trailing whitespace is `trailing-whitespace'. */); 22892The face used for trailing whitespace is `trailing-whitespace'. */);
22893 Vshow_trailing_whitespace = Qnil; 22893 Vshow_trailing_whitespace = Qnil;
22894 22894
22895 DEFVAR_LISP ("show-nonbreak-escape", &Vshow_nonbreak_escape, 22895 DEFVAR_LISP ("nobreak-char-display", &Vnobreak_char_display,
22896 doc: /* *Control highlighting of non-break space and soft hyphen. 22896 doc: /* *Control highlighting of nobreak space and soft hyphen.
22897t means highlight the character itself (for non-break space, 22897t means highlight the character itself (for nobreak space,
22898use face `non-break-space'. 22898use face `nobreak-space'.
22899nil means no highlighting. 22899nil means no highlighting.
22900other values mean display the escape glyph before the character. */); 22900other values mean display the escape glyph followed by an ordinary
22901 Vshow_nonbreak_escape = Qt; 22901space or ordinary hyphen. */);
22902 Vnobreak_char_display = Qt;
22902 22903
22903 DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer, 22904 DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer,
22904 doc: /* *The pointer shape to show in void text areas. 22905 doc: /* *The pointer shape to show in void text areas.
diff --git a/src/xfaces.c b/src/xfaces.c
index 78dc41116e4..b16b7eae824 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -5929,7 +5929,7 @@ x_supports_face_attributes_p (f, attrs, def_face)
5929 face = FACE_FROM_ID (f, lookup_face (f, merged_attrs, 0, 0)); 5929 face = FACE_FROM_ID (f, lookup_face (f, merged_attrs, 0, 0));
5930 5930
5931 if (! face) 5931 if (! face)
5932 error ("cannot make face"); 5932 error ("Cannot make face");
5933 5933
5934 /* If the font is the same, then not supported. */ 5934 /* If the font is the same, then not supported. */
5935 if (face->font == def_face->font) 5935 if (face->font == def_face->font)
diff --git a/src/xselect.c b/src/xselect.c
index 7a1ceaabbb0..b0bd0bc97c9 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -2136,7 +2136,7 @@ anything that the functions on `selection-converter-alist' know about. */)
2136{ 2136{
2137 check_x (); 2137 check_x ();
2138 CHECK_SYMBOL (selection_name); 2138 CHECK_SYMBOL (selection_name);
2139 if (NILP (selection_value)) error ("selection-value may not be nil"); 2139 if (NILP (selection_value)) error ("SELECTION-VALUE may not be nil");
2140 x_own_selection (selection_name, selection_value); 2140 x_own_selection (selection_name, selection_value);
2141 return selection_value; 2141 return selection_value;
2142} 2142}