diff options
| author | Karoly Lorentey | 2005-06-25 15:00:08 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-06-25 15:00:08 +0000 |
| commit | 0d0358be7e741898e363d02dbff01b35c662413c (patch) | |
| tree | e6bdb6ae792a8be712780a5cfad4eeddb09c4f43 /src | |
| parent | f4d9bf3a9be50a17c2e2f7569b88f3606ab273d9 (diff) | |
| parent | b93e3c3ba1644f5e746c7486bd609ba9fc7ec583 (diff) | |
| download | emacs-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/ChangeLog | 56 | ||||
| -rw-r--r-- | src/abbrev.c | 2 | ||||
| -rw-r--r-- | src/category.c | 2 | ||||
| -rw-r--r-- | src/dispnew.c | 4 | ||||
| -rw-r--r-- | src/editfns.c | 2 | ||||
| -rw-r--r-- | src/eval.c | 8 | ||||
| -rw-r--r-- | src/fileio.c | 6 | ||||
| -rw-r--r-- | src/frame.c | 6 | ||||
| -rw-r--r-- | src/image.c | 22 | ||||
| -rw-r--r-- | src/lread.c | 4 | ||||
| -rw-r--r-- | src/macfns.c | 20 | ||||
| -rw-r--r-- | src/process.c | 4 | ||||
| -rw-r--r-- | src/search.c | 20 | ||||
| -rw-r--r-- | src/syntax.c | 2 | ||||
| -rw-r--r-- | src/w32fns.c | 8 | ||||
| -rw-r--r-- | src/xdisp.c | 29 | ||||
| -rw-r--r-- | src/xfaces.c | 2 | ||||
| -rw-r--r-- | src/xselect.c | 2 |
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 @@ | |||
| 1 | 2005-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 | |||
| 14 | 2005-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 | |||
| 36 | 2005-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 | |||
| 1 | 2005-06-22 Miles Bader <miles@gnu.org> | 43 | 2005-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 | ||
| 2804 | 2004-12-27 Richard M. Stallman <rms@gnu.org> | 2846 | 2004-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 @@ | |||
| 3624 | 2004-11-12 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | 3666 | 2004-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 | ||
| 4003 | 2004-10-28 Will <will@glozer.net> | 4045 | 2004-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 | ||
| 4008 | 2004-10-28 Stefan Monnier <monnier@iro.umontreal.ca> | 4050 | 2004-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 | ||
| 8197 | 2003-11-29 Kim F. Storm <storm@cua.dk> | 8239 | 2003-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 *)); | |||
| 3609 | extern Display_Info *check_x_display_info P_ ((Lisp_Object)); | 3609 | extern 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 | ||
| 3615 | static Lisp_Object | 3615 | static Lisp_Object |
| @@ -3746,7 +3746,7 @@ x_get_resource_string (attribute, class) | |||
| 3746 | 3746 | ||
| 3747 | Lisp_Object | 3747 | Lisp_Object |
| 3748 | x_get_arg (dpyinfo, alist, param, attribute, class, type) | 3748 | x_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); | |||
| 5631 | DEF_IMGLIB_FN (png_create_info_struct); | 5631 | DEF_IMGLIB_FN (png_create_info_struct); |
| 5632 | DEF_IMGLIB_FN (png_destroy_read_struct); | 5632 | DEF_IMGLIB_FN (png_destroy_read_struct); |
| 5633 | DEF_IMGLIB_FN (png_set_read_fn); | 5633 | DEF_IMGLIB_FN (png_set_read_fn); |
| 5634 | DEF_IMGLIB_FN (png_init_io); | ||
| 5635 | DEF_IMGLIB_FN (png_set_sig_bytes); | 5634 | DEF_IMGLIB_FN (png_set_sig_bytes); |
| 5636 | DEF_IMGLIB_FN (png_read_info); | 5635 | DEF_IMGLIB_FN (png_read_info); |
| 5637 | DEF_IMGLIB_FN (png_get_IHDR); | 5636 | DEF_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 | |||
| 5766 | static void | ||
| 5767 | png_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. | |||
| 2758 | If optional third arg RESEAT is non-nil, any previous markers on the | 2758 | If optional third arg RESEAT is non-nil, any previous markers on the |
| 2759 | REUSE list will be modified to point to nowhere. | 2759 | REUSE list will be modified to point to nowhere. |
| 2760 | 2760 | ||
| 2761 | If RESEAT is `evaporate', put markers back on the free list. | ||
| 2762 | Note: No other references to the markers must exist if you use this. | ||
| 2763 | |||
| 2764 | Return value is undefined if the last search failed. */) | 2761 | Return 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 | ||
| 2855 | DEFUN ("set-match-data", Fset_match_data, Sset_match_data, 1, 2, 0, | 2854 | DEFUN ("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. |
| 2857 | LIST should have been created by calling `match-data' previously. | 2856 | LIST should have been created by calling `match-data' previously. |
| 2858 | 2857 | ||
| 2859 | If optional arg RESEAT is non-nil, make markers on LIST point nowhere. | 2858 | If optional arg RESEAT is non-nil, make markers on LIST point nowhere. */) |
| 2860 | If RESEAT is `evaporate', put the markers back on the free list. | ||
| 2861 | Note: 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 | |||
| 3026 | unwind_set_match_data (list) | 3023 | unwind_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 | ||
| 7775 | DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0, | 7775 | DEFUN ("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. |
| 7777 | Use a file selection dialog. | 7777 | Use 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 | ||
| 323 | Lisp_Object Vshow_nonbreak_escape; | 323 | Lisp_Object Vnobreak_char_display; |
| 324 | 324 | ||
| 325 | #ifdef HAVE_WINDOW_SYSTEM | 325 | #ifdef HAVE_WINDOW_SYSTEM |
| 326 | extern Lisp_Object Voverflow_newline_into_fringe; | 326 | extern 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 | ||
| 355 | Lisp_Object Qno_break_space; | 355 | Lisp_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. */); | |||
| 22892 | The face used for trailing whitespace is `trailing-whitespace'. */); | 22892 | The 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. |
| 22897 | t means highlight the character itself (for non-break space, | 22897 | t means highlight the character itself (for nobreak space, |
| 22898 | use face `non-break-space'. | 22898 | use face `nobreak-space'. |
| 22899 | nil means no highlighting. | 22899 | nil means no highlighting. |
| 22900 | other values mean display the escape glyph before the character. */); | 22900 | other values mean display the escape glyph followed by an ordinary |
| 22901 | Vshow_nonbreak_escape = Qt; | 22901 | space 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 | } |