diff options
| author | Paul Eggert | 2011-04-15 00:48:51 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-04-15 00:48:51 -0700 |
| commit | 4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9 (patch) | |
| tree | e993b231bb5555c9c961f5d0b20d90ac76f77bbd /src/editfns.c | |
| parent | 1963a2e0bb07cc8dee6d27f972f93d9cfd7c6b2d (diff) | |
| parent | 49093f601b69d91126aefd328ee8f6bfeb797407 (diff) | |
| download | emacs-4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9.tar.gz emacs-4170f62f39edf1ff1e99aec9bfbfe7bbf10e7fc9.zip | |
Merge from mainline.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 23 |
1 files changed, 4 insertions, 19 deletions
diff --git a/src/editfns.c b/src/editfns.c index e754a074ba8..5e1dcce0275 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -107,8 +107,8 @@ static Lisp_Object subst_char_in_region_unwind_1 (Lisp_Object); | |||
| 107 | static void transpose_markers (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, | 107 | static void transpose_markers (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, |
| 108 | EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT); | 108 | EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT); |
| 109 | 109 | ||
| 110 | Lisp_Object Qbuffer_access_fontify_functions; | 110 | static Lisp_Object Qbuffer_access_fontify_functions; |
| 111 | Lisp_Object Fuser_full_name (Lisp_Object); | 111 | static Lisp_Object Fuser_full_name (Lisp_Object); |
| 112 | 112 | ||
| 113 | /* Symbol for the text property used to mark fields. */ | 113 | /* Symbol for the text property used to mark fields. */ |
| 114 | 114 | ||
| @@ -116,7 +116,7 @@ Lisp_Object Qfield; | |||
| 116 | 116 | ||
| 117 | /* A special value for Qfield properties. */ | 117 | /* A special value for Qfield properties. */ |
| 118 | 118 | ||
| 119 | Lisp_Object Qboundary; | 119 | static Lisp_Object Qboundary; |
| 120 | 120 | ||
| 121 | 121 | ||
| 122 | void | 122 | void |
| @@ -1403,15 +1403,6 @@ get_system_name (void) | |||
| 1403 | return ""; | 1403 | return ""; |
| 1404 | } | 1404 | } |
| 1405 | 1405 | ||
| 1406 | const char * | ||
| 1407 | get_operating_system_release (void) | ||
| 1408 | { | ||
| 1409 | if (STRINGP (Voperating_system_release)) | ||
| 1410 | return SSDATA (Voperating_system_release); | ||
| 1411 | else | ||
| 1412 | return ""; | ||
| 1413 | } | ||
| 1414 | |||
| 1415 | DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0, | 1406 | DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0, |
| 1416 | doc: /* Return the process ID of Emacs, as an integer. */) | 1407 | doc: /* Return the process ID of Emacs, as an integer. */) |
| 1417 | (void) | 1408 | (void) |
| @@ -3802,7 +3793,7 @@ usage: (format STRING &rest OBJECTS) */) | |||
| 3802 | if (*format == 'c') | 3793 | if (*format == 'c') |
| 3803 | { | 3794 | { |
| 3804 | if (! ASCII_CHAR_P (XINT (args[n])) | 3795 | if (! ASCII_CHAR_P (XINT (args[n])) |
| 3805 | /* Note: No one can remeber why we have to treat | 3796 | /* Note: No one can remember why we have to treat |
| 3806 | the character 0 as a multibyte character here. | 3797 | the character 0 as a multibyte character here. |
| 3807 | But, until it causes a real problem, let's | 3798 | But, until it causes a real problem, let's |
| 3808 | don't change it. */ | 3799 | don't change it. */ |
| @@ -3816,12 +3807,6 @@ usage: (format STRING &rest OBJECTS) */) | |||
| 3816 | args[n] = Fchar_to_string (args[n]); | 3807 | args[n] = Fchar_to_string (args[n]); |
| 3817 | thissize = SBYTES (args[n]); | 3808 | thissize = SBYTES (args[n]); |
| 3818 | } | 3809 | } |
| 3819 | else if (! ASCII_BYTE_P (XINT (args[n])) && multibyte) | ||
| 3820 | { | ||
| 3821 | args[n] | ||
| 3822 | = Fchar_to_string (Funibyte_char_to_multibyte (args[n])); | ||
| 3823 | thissize = SBYTES (args[n]); | ||
| 3824 | } | ||
| 3825 | } | 3810 | } |
| 3826 | } | 3811 | } |
| 3827 | else if (FLOATP (args[n]) && *format != 's') | 3812 | else if (FLOATP (args[n]) && *format != 's') |