Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d940e0e4
Commit
d940e0e4
authored
Dec 08, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
cfa191ff
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
7 deletions
+9
-7
src/editfns.c
src/editfns.c
+9
-7
No files found.
src/editfns.c
View file @
d940e0e4
...
...
@@ -503,6 +503,14 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
return
Vsystem_name
;
}
DEFUN
(
"current-time"
,
Fcurrent_time
,
Scurrent_time
,
0
,
0
,
0
,
"Return the current time, as an integer."
)
()
{
return
make_number
(
time
(
0
));
}
DEFUN
(
"current-time-string"
,
Fcurrent_time_string
,
Scurrent_time_string
,
0
,
0
,
0
,
"Return the current time, as a human-readable string.
\n
\
Programs can use it too, since the number of columns in each field is fixed.
\n
\
...
...
@@ -998,13 +1006,6 @@ the argument used by %d or %c must be a number.")
{
register
Lisp_Object
val
;
#ifdef MULTI_SCREEN
extern
Lisp_Object
Vglobal_minibuffer_screen
;
if
(
XTYPE
(
Vglobal_minibuffer_screen
)
==
Lisp_Screen
)
Fmake_screen_visible
(
Vglobal_minibuffer_screen
);
#endif
val
=
Fformat
(
nargs
,
args
);
message
(
"%s"
,
XSTRING
(
val
)
->
data
);
return
val
;
...
...
@@ -1258,6 +1259,7 @@ syms_of_editfns ()
defsubr
(
&
Suser_uid
);
defsubr
(
&
Suser_real_uid
);
defsubr
(
&
Suser_full_name
);
defsubr
(
&
Scurrent_time
);
defsubr
(
&
Scurrent_time_string
);
defsubr
(
&
Ssystem_name
);
defsubr
(
&
Sset_default_file_mode
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment