diff options
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index ff3536e9691..3ffbc2658bb 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -560,9 +560,9 @@ resolution finer than a second.") | |||
| 560 | Lisp_Object result[3]; | 560 | Lisp_Object result[3]; |
| 561 | 561 | ||
| 562 | EMACS_GET_TIME (t); | 562 | EMACS_GET_TIME (t); |
| 563 | XSET (result[0], Lisp_Int, (EMACS_SECS (t) >> 16) & 0xffff); | 563 | XSETINT (result[0], (EMACS_SECS (t) >> 16) & 0xffff); |
| 564 | XSET (result[1], Lisp_Int, (EMACS_SECS (t) >> 0) & 0xffff); | 564 | XSETINT (result[1], (EMACS_SECS (t) >> 0) & 0xffff); |
| 565 | XSET (result[2], Lisp_Int, EMACS_USECS (t)); | 565 | XSETINT (result[2], EMACS_USECS (t)); |
| 566 | 566 | ||
| 567 | return Flist (3, result); | 567 | return Flist (3, result); |
| 568 | } | 568 | } |
| @@ -1631,7 +1631,7 @@ Use %% to put a single % into the output.") | |||
| 1631 | } | 1631 | } |
| 1632 | else if (SYMBOLP (args[n])) | 1632 | else if (SYMBOLP (args[n])) |
| 1633 | { | 1633 | { |
| 1634 | XSET (args[n], Lisp_String, XSYMBOL (args[n])->name); | 1634 | XSETSTRING (args[n], XSYMBOL (args[n])->name); |
| 1635 | goto string; | 1635 | goto string; |
| 1636 | } | 1636 | } |
| 1637 | else if (STRINGP (args[n])) | 1637 | else if (STRINGP (args[n])) |