aboutsummaryrefslogtreecommitdiffstats
path: root/src/editfns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/editfns.c')
-rw-r--r--src/editfns.c23
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);
107static void transpose_markers (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, 107static 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
110Lisp_Object Qbuffer_access_fontify_functions; 110static Lisp_Object Qbuffer_access_fontify_functions;
111Lisp_Object Fuser_full_name (Lisp_Object); 111static 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
119Lisp_Object Qboundary; 119static Lisp_Object Qboundary;
120 120
121 121
122void 122void
@@ -1403,15 +1403,6 @@ get_system_name (void)
1403 return ""; 1403 return "";
1404} 1404}
1405 1405
1406const char *
1407get_operating_system_release (void)
1408{
1409 if (STRINGP (Voperating_system_release))
1410 return SSDATA (Voperating_system_release);
1411 else
1412 return "";
1413}
1414
1415DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0, 1406DEFUN ("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')