]> code.delx.au - gnu-emacs/blob - lispref/os.texi
(gc_cons_threshold): Make it static.
[gnu-emacs] / lispref / os.texi
1 @c -*-texinfo-*-
2 @c This is part of the GNU Emacs Lisp Reference Manual.
3 @c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004
4 @c Free Software Foundation, Inc.
5 @c See the file elisp.texi for copying conditions.
6 @setfilename ../info/os
7 @node System Interface, Antinews, Display, Top
8 @chapter Operating System Interface
9
10 This chapter is about starting and getting out of Emacs, access to
11 values in the operating system environment, and terminal input, output,
12 and flow control.
13
14 @xref{Building Emacs}, for related information. See also
15 @ref{Display}, for additional operating system status information
16 pertaining to the terminal and the screen.
17
18 @menu
19 * Starting Up:: Customizing Emacs startup processing.
20 * Getting Out:: How exiting works (permanent or temporary).
21 * System Environment:: Distinguish the name and kind of system.
22 * User Identification:: Finding the name and user id of the user.
23 * Time of Day:: Getting the current time.
24 * Time Conversion:: Converting a time from numeric form to a string, or
25 to calendrical data (or vice versa).
26 * Processor Run Time:: Getting the run time used by Emacs.
27 * Time Calculations:: Adding, subtracting, comparing times, etc.
28 * Timers:: Setting a timer to call a function at a certain time.
29 * Terminal Input:: Recording terminal input for debugging.
30 * Terminal Output:: Recording terminal output for debugging.
31 * Sound Output:: Playing sounds on the computer's speaker.
32 * X11 Keysyms:: Operating on key symbols for X Windows
33 * Batch Mode:: Running Emacs without terminal interaction.
34 * Session Management:: Saving and restoring state with X Session Management.
35 @end menu
36
37 @node Starting Up
38 @section Starting Up Emacs
39
40 This section describes what Emacs does when it is started, and how you
41 can customize these actions.
42
43 @menu
44 * Startup Summary:: Sequence of actions Emacs performs at startup.
45 * Init File:: Details on reading the init file (@file{.emacs}).
46 * Terminal-Specific:: How the terminal-specific Lisp file is read.
47 * Command-Line Arguments:: How command-line arguments are processed,
48 and how you can customize them.
49 @end menu
50
51 @node Startup Summary
52 @subsection Summary: Sequence of Actions at Startup
53 @cindex initialization
54 @cindex startup of Emacs
55 @cindex @file{startup.el}
56
57 The order of operations performed (in @file{startup.el}) by Emacs when
58 it is started up is as follows:
59
60 @enumerate
61 @item
62 It adds subdirectories to @code{load-path}, by running the file named
63 @file{subdirs.el} in each directory in the list. Normally this file
64 adds the directory's subdirectories to the list, and these will be
65 scanned in their turn. The files @file{subdirs.el} are normally
66 generated automatically by Emacs installation.
67
68 @item
69 It sets the language environment and the terminal coding system,
70 if requested by environment variables such as @code{LANG}.
71
72 @item
73 It loads the initialization library for the window system, if you are
74 using a window system. This library's name is
75 @file{term/@var{windowsystem}-win.el}.
76
77 @item
78 It processes the initial options. (Some of them are handled
79 even earlier than this.)
80
81 @item
82 It initializes the window frame and faces, if appropriate.
83
84 @item
85 It runs the normal hook @code{before-init-hook}.
86
87 @item
88 It loads the library @file{site-start} (if any), unless the option
89 @samp{-Q} (or @samp{--no-site-file}) was specified. The library's file
90 name is usually @file{site-start.el}.
91 @cindex @file{site-start.el}
92
93 @item
94 It loads your init file (usually @file{~/.emacs}), unless the option
95 @samp{-q} (or @samp{--no-init-file}), @samp{-Q}, or @samp{--batch} was
96 specified on the command line. The @samp{-u} option can specify
97 another user whose home directory should be used instead of @file{~}.
98
99 @item
100 It loads the library @file{default} (if any), unless
101 @code{inhibit-default-init} is non-@code{nil}. (This is not done in
102 @samp{-batch} mode, or if @samp{-Q} or @samp{-q} was specified on the
103 command line.) The library's file name is usually @file{default.el}.
104 @cindex @file{default.el}
105
106 @item
107 It runs the normal hook @code{after-init-hook}.
108
109 @item
110 It sets the major mode according to @code{initial-major-mode}, provided
111 the buffer @samp{*scratch*} is still current and still in Fundamental
112 mode.
113
114 @item
115 It loads the terminal-specific Lisp file, if any, except when in batch
116 mode or using a window system.
117
118 @item
119 It displays the initial echo area message, unless you have suppressed
120 that with @code{inhibit-startup-echo-area-message} or @samp{-Q}.
121
122 @item
123 It processes the action arguments from the command line.
124
125 @item
126 It runs @code{emacs-startup-hook} and then @code{term-setup-hook}.
127
128 @item
129 It calls @code{frame-notice-user-settings}, which modifies the
130 parameters of the selected frame according to whatever the init files
131 specify.
132
133 @item
134 It runs @code{window-setup-hook}. @xref{Window Systems}.
135
136 @item
137 It displays copyleft, nonwarranty, and basic use information, provided
138 the value of @code{inhibit-startup-message} is @code{nil}, you didn't
139 specify @samp{--no-splash} or @samp{-Q}, and the buffer is still empty.
140 @end enumerate
141
142 @defopt inhibit-startup-message
143 This variable inhibits the initial startup messages (the nonwarranty,
144 etc.). If it is non-@code{nil}, then the messages are not printed.
145
146 This variable exists so you can set it in your personal init file, once
147 you are familiar with the contents of the startup message. Do not set
148 this variable in the init file of a new user, or in a way that affects
149 more than one user, because that would prevent new users from receiving
150 the information they are supposed to see.
151 @end defopt
152
153 @defopt inhibit-startup-echo-area-message
154 This variable controls the display of the startup echo area message.
155 You can suppress the startup echo area message by adding text with this
156 form to your init file:
157
158 @example
159 (setq inhibit-startup-echo-area-message
160 "@var{your-login-name}")
161 @end example
162
163 Emacs explicitly checks for an expression as shown above in your init
164 file; your login name must appear in the expression as a Lisp string
165 constant. Other methods of setting
166 @code{inhibit-startup-echo-area-message} to the same value do not
167 inhibit the startup message.
168
169 This way, you can easily inhibit the message for yourself if you wish,
170 but thoughtless copying of your init file will not inhibit the message
171 for someone else.
172 @end defopt
173
174 @node Init File
175 @subsection The Init File, @file{.emacs}
176 @cindex init file
177 @cindex @file{.emacs}
178
179 When you start Emacs, it normally attempts to load your @dfn{init
180 file}, a file in your home directory. Its normal name is
181 @file{.emacs}, but you can alternatively call it @file{.emacs.el}.
182 You can also store it inside a subdirectory @file{.emacs.d}.
183 Whichever place you use, you can also compile the file (@pxref{Byte
184 Compilation}); then the actual file loaded will be @file{.emacs.elc}.
185
186 The command-line switches @samp{-q}, @samp{-Q}, and @samp{-u}
187 control whether and where to find the init file; @samp{-q} (and the
188 stronger @samp{-Q}) says not to load an init file, while @samp{-u
189 @var{user}} says to load @var{user}'s init file instead of yours.
190 @xref{Entering Emacs,,, emacs, The GNU Emacs Manual}. If neither
191 option is specified, Emacs uses the @code{LOGNAME} environment
192 variable, or the @code{USER} (most systems) or @code{USERNAME} (MS
193 systems) variable, to find your home directory and thus your init
194 file; this way, even if you have su'd, Emacs still loads your own init
195 file. If those environment variables are absent, though, Emacs uses
196 your user-id to find your home directory.
197
198 @cindex default init file
199 A site may have a @dfn{default init file}, which is the library
200 named @file{default.el}. Emacs finds the @file{default.el} file
201 through the standard search path for libraries (@pxref{How Programs Do
202 Loading}). The Emacs distribution does not come with this file; sites
203 may provide one for local customizations. If the default init file
204 exists, it is loaded whenever you start Emacs, except in batch mode or
205 if @samp{-q} (or @samp{-Q}) is specified. But your own personal init
206 file, if any, is loaded first; if it sets @code{inhibit-default-init}
207 to a non-@code{nil} value, then Emacs does not subsequently load the
208 @file{default.el} file.
209
210 Another file for site-customization is @file{site-start.el}. Emacs
211 loads this @emph{before} the user's init file. You can inhibit the
212 loading of this file with the option @samp{--no-site-file}.
213
214 @defvar site-run-file
215 This variable specifies the site-customization file to load before the
216 user's init file. Its normal value is @code{"site-start"}. The only
217 way you can change it with real effect is to do so before dumping
218 Emacs.
219 @end defvar
220
221 @xref{Init Examples,, Init File Examples, emacs, The GNU Emacs Manual}, for
222 examples of how to make various commonly desired customizations in your
223 @file{.emacs} file.
224
225 @defopt inhibit-default-init
226 This variable prevents Emacs from loading the default initialization
227 library file for your session of Emacs. If its value is non-@code{nil},
228 then the default library is not loaded. The default value is
229 @code{nil}.
230 @end defopt
231
232 @defvar before-init-hook
233 This normal hook is run, once, just before loading all the init files
234 (the user's init file, @file{default.el}, and/or @file{site-start.el}).
235 (The only way to change it with real effect is before dumping Emacs.)
236 @end defvar
237
238 @defvar after-init-hook
239 This normal hook is run, once, just after loading all the init files
240 (the user's init file, @file{default.el}, and/or @file{site-start.el}),
241 before loading the terminal-specific library and processing the
242 command-line action arguments.
243 @end defvar
244
245 @defvar emacs-startup-hook
246 @tindex emacs-startup-hook
247 This normal hook is run, once, just after handling the command line
248 arguments, just before @code{term-setup-hook}.
249 @end defvar
250
251 @defvar user-init-file
252 @tindex user-init-file
253 This variable holds the absolute file name of the user's init file. If the
254 actual init file loaded is a compiled file, such as @file{.emacs.elc},
255 the value refers to the corresponding source file.
256 @end defvar
257
258 @node Terminal-Specific
259 @subsection Terminal-Specific Initialization
260 @cindex terminal-specific initialization
261
262 Each terminal type can have its own Lisp library that Emacs loads when
263 run on that type of terminal. The library's name is constructed by
264 concatenating the value of the variable @code{term-file-prefix} and the
265 terminal type (specified by the environment variable @code{TERM}).
266 Normally, @code{term-file-prefix} has the value
267 @code{"term/"}; changing this is not recommended. Emacs finds the file
268 in the normal manner, by searching the @code{load-path} directories, and
269 trying the @samp{.elc} and @samp{.el} suffixes.
270
271 The usual function of a terminal-specific library is to enable special
272 keys to send sequences that Emacs can recognize. It may also need to
273 set or add to @code{function-key-map} if the Termcap entry does not
274 specify all the terminal's function keys. @xref{Terminal Input}.
275
276 @cindex Termcap
277 When the name of the terminal type contains a hyphen, only the part of
278 the name before the first hyphen is significant in choosing the library
279 name. Thus, terminal types @samp{aaa-48} and @samp{aaa-30-rv} both use
280 the @file{term/aaa} library. If necessary, the library can evaluate
281 @code{(getenv "TERM")} to find the full name of the terminal
282 type.@refill
283
284 Your init file can prevent the loading of the
285 terminal-specific library by setting the variable
286 @code{term-file-prefix} to @code{nil}. This feature is useful when
287 experimenting with your own peculiar customizations.
288
289 You can also arrange to override some of the actions of the
290 terminal-specific library by setting the variable
291 @code{term-setup-hook}. This is a normal hook which Emacs runs using
292 @code{run-hooks} at the end of Emacs initialization, after loading both
293 your init file and any terminal-specific libraries. You can
294 use this variable to define initializations for terminals that do not
295 have their own libraries. @xref{Hooks}.
296
297 @defvar term-file-prefix
298 @cindex @code{TERM} environment variable
299 If the @code{term-file-prefix} variable is non-@code{nil}, Emacs loads
300 a terminal-specific initialization file as follows:
301
302 @example
303 (load (concat term-file-prefix (getenv "TERM")))
304 @end example
305
306 @noindent
307 You may set the @code{term-file-prefix} variable to @code{nil} in your
308 init file if you do not wish to load the
309 terminal-initialization file. To do this, put the following in
310 your init file: @code{(setq term-file-prefix nil)}.
311
312 On MS-DOS, if the environment variable @code{TERM} is not set, Emacs
313 uses @samp{internal} as the terminal type.
314 @end defvar
315
316 @defvar term-setup-hook
317 This variable is a normal hook that Emacs runs after loading your
318 init file, the default initialization file (if any) and the
319 terminal-specific Lisp file.
320
321 You can use @code{term-setup-hook} to override the definitions made by a
322 terminal-specific file.
323 @end defvar
324
325 See @code{window-setup-hook} in @ref{Window Systems}, for a related
326 feature.
327
328 @node Command-Line Arguments
329 @subsection Command-Line Arguments
330 @cindex command-line arguments
331
332 You can use command-line arguments to request various actions when you
333 start Emacs. Since you do not need to start Emacs more than once per
334 day, and will often leave your Emacs session running longer than that,
335 command-line arguments are hardly ever used. As a practical matter, it
336 is best to avoid making the habit of using them, since this habit would
337 encourage you to kill and restart Emacs unnecessarily often. These
338 options exist for two reasons: to be compatible with other editors (for
339 invocation by other programs) and to enable shell scripts to run
340 specific Lisp programs.
341
342 This section describes how Emacs processes command-line arguments,
343 and how you can customize them.
344
345 @ignore
346 (Note that some other editors require you to start afresh each time
347 you want to edit a file. With this kind of editor, you will probably
348 specify the file as a command-line argument. The recommended way to
349 use GNU Emacs is to start it only once, just after you log in, and do
350 all your editing in the same Emacs process. Each time you want to edit
351 a different file, you visit it with the existing Emacs, which eventually
352 comes to have many files in it ready for editing. Usually you do not
353 kill the Emacs until you are about to log out.)
354 @end ignore
355
356 @defun command-line
357 This function parses the command line that Emacs was called with,
358 processes it, loads the user's init file and displays the
359 startup messages.
360 @end defun
361
362 @defvar command-line-processed
363 The value of this variable is @code{t} once the command line has been
364 processed.
365
366 If you redump Emacs by calling @code{dump-emacs}, you may wish to set
367 this variable to @code{nil} first in order to cause the new dumped Emacs
368 to process its new command-line arguments.
369 @end defvar
370
371 @defvar command-switch-alist
372 @cindex switches on command line
373 @cindex options on command line
374 @cindex command-line options
375 The value of this variable is an alist of user-defined command-line
376 options and associated handler functions. This variable exists so you
377 can add elements to it.
378
379 A @dfn{command-line option} is an argument on the command line, which
380 has the form:
381
382 @example
383 -@var{option}
384 @end example
385
386 The elements of the @code{command-switch-alist} look like this:
387
388 @example
389 (@var{option} . @var{handler-function})
390 @end example
391
392 The @sc{car}, @var{option}, is a string, the name of a command-line
393 option (not including the initial hyphen). The @var{handler-function}
394 is called to handle @var{option}, and receives the option name as its
395 sole argument.
396
397 In some cases, the option is followed in the command line by an
398 argument. In these cases, the @var{handler-function} can find all the
399 remaining command-line arguments in the variable
400 @code{command-line-args-left}. (The entire list of command-line
401 arguments is in @code{command-line-args}.)
402
403 The command-line arguments are parsed by the @code{command-line-1}
404 function in the @file{startup.el} file. See also @ref{Command
405 Arguments, , Command Line Arguments, emacs, The GNU Emacs Manual}.
406 @end defvar
407
408 @defvar command-line-args
409 The value of this variable is the list of command-line arguments passed
410 to Emacs.
411 @end defvar
412
413 @defvar command-line-functions
414 This variable's value is a list of functions for handling an
415 unrecognized command-line argument. Each time the next argument to be
416 processed has no special meaning, the functions in this list are called,
417 in order of appearance, until one of them returns a non-@code{nil}
418 value.
419
420 These functions are called with no arguments. They can access the
421 command-line argument under consideration through the variable
422 @code{argi}, which is bound temporarily at this point. The remaining
423 arguments (not including the current one) are in the variable
424 @code{command-line-args-left}.
425
426 When a function recognizes and processes the argument in @code{argi}, it
427 should return a non-@code{nil} value to say it has dealt with that
428 argument. If it has also dealt with some of the following arguments, it
429 can indicate that by deleting them from @code{command-line-args-left}.
430
431 If all of these functions return @code{nil}, then the argument is used
432 as a file name to visit.
433 @end defvar
434
435 @node Getting Out
436 @section Getting Out of Emacs
437 @cindex exiting Emacs
438
439 There are two ways to get out of Emacs: you can kill the Emacs job,
440 which exits permanently, or you can suspend it, which permits you to
441 reenter the Emacs process later. As a practical matter, you seldom kill
442 Emacs---only when you are about to log out. Suspending is much more
443 common.
444
445 @menu
446 * Killing Emacs:: Exiting Emacs irreversibly.
447 * Suspending Emacs:: Exiting Emacs reversibly.
448 @end menu
449
450 @node Killing Emacs
451 @comment node-name, next, previous, up
452 @subsection Killing Emacs
453 @cindex killing Emacs
454
455 Killing Emacs means ending the execution of the Emacs process. The
456 parent process normally resumes control. The low-level primitive for
457 killing Emacs is @code{kill-emacs}.
458
459 @defun kill-emacs &optional exit-data
460 This function exits the Emacs process and kills it.
461
462 If @var{exit-data} is an integer, then it is used as the exit status
463 of the Emacs process. (This is useful primarily in batch operation; see
464 @ref{Batch Mode}.)
465
466 If @var{exit-data} is a string, its contents are stuffed into the
467 terminal input buffer so that the shell (or whatever program next reads
468 input) can read them.
469 @end defun
470
471 All the information in the Emacs process, aside from files that have
472 been saved, is lost when the Emacs process is killed. Because killing
473 Emacs inadvertently can lose a lot of work, Emacs queries for
474 confirmation before actually terminating if you have buffers that need
475 saving or subprocesses that are running. This is done in the function
476 @code{save-buffers-kill-emacs}, the higher level function from which
477 @code{kill-emacs} is usually called.
478
479 @defvar kill-emacs-query-functions
480 After asking the standard questions, @code{save-buffers-kill-emacs}
481 calls the functions in the list @code{kill-emacs-query-functions}, in
482 order of appearance, with no arguments. These functions can ask for
483 additional confirmation from the user. If any of them returns
484 @code{nil}, @code{save-buffers-kill-emacs} does not kill Emacs, and
485 does not run the remaining functions in this hook. Calling
486 @code{kill-emacs} directly does not run this hook.
487 @end defvar
488
489 @defvar kill-emacs-hook
490 This variable is a normal hook; once @code{save-buffers-kill-emacs} is
491 finished with all file saving and confirmation, it calls
492 @code{kill-emacs} which runs the functions in this hook.
493 @code{kill-emacs} does not run this hook in batch mode.
494
495 @code{kill-emacs} may be invoked directly (that is not via
496 @code{save-buffers-kill-emacs}) if the terminal is disconnected, or in
497 similar situations where interaction with the user is not possible.
498 Thus, if your hook needs to interact with the user, put it on
499 @code{kill-emacs-query-functions}; if it needs to run regardless of
500 how Emacs is killed, put it on @code{kill-emacs-hook}.
501 @end defvar
502
503 @node Suspending Emacs
504 @subsection Suspending Emacs
505 @cindex suspending Emacs
506
507 @dfn{Suspending Emacs} means stopping Emacs temporarily and returning
508 control to its superior process, which is usually the shell. This
509 allows you to resume editing later in the same Emacs process, with the
510 same buffers, the same kill ring, the same undo history, and so on. To
511 resume Emacs, use the appropriate command in the parent shell---most
512 likely @code{fg}.
513
514 Some operating systems do not support suspension of jobs; on these
515 systems, ``suspension'' actually creates a new shell temporarily as a
516 subprocess of Emacs. Then you would exit the shell to return to Emacs.
517
518 Suspension is not useful with window systems, because the Emacs job
519 may not have a parent that can resume it again, and in any case you can
520 give input to some other job such as a shell merely by moving to a
521 different window. Therefore, suspending is not allowed when Emacs is using
522 a window system (X or MS Windows).
523
524 @defun suspend-emacs &optional string
525 This function stops Emacs and returns control to the superior process.
526 If and when the superior process resumes Emacs, @code{suspend-emacs}
527 returns @code{nil} to its caller in Lisp.
528
529 If @var{string} is non-@code{nil}, its characters are sent to be read
530 as terminal input by Emacs's superior shell. The characters in
531 @var{string} are not echoed by the superior shell; only the results
532 appear.
533
534 Before suspending, @code{suspend-emacs} runs the normal hook
535 @code{suspend-hook}.
536
537 After the user resumes Emacs, @code{suspend-emacs} runs the normal hook
538 @code{suspend-resume-hook}. @xref{Hooks}.
539
540 The next redisplay after resumption will redraw the entire screen,
541 unless the variable @code{no-redraw-on-reenter} is non-@code{nil}
542 (@pxref{Refresh Screen}).
543
544 In the following example, note that @samp{pwd} is not echoed after
545 Emacs is suspended. But it is read and executed by the shell.
546
547 @smallexample
548 @group
549 (suspend-emacs)
550 @result{} nil
551 @end group
552
553 @group
554 (add-hook 'suspend-hook
555 (function (lambda ()
556 (or (y-or-n-p
557 "Really suspend? ")
558 (error "Suspend canceled")))))
559 @result{} (lambda nil
560 (or (y-or-n-p "Really suspend? ")
561 (error "Suspend canceled")))
562 @end group
563 @group
564 (add-hook 'suspend-resume-hook
565 (function (lambda () (message "Resumed!"))))
566 @result{} (lambda nil (message "Resumed!"))
567 @end group
568 @group
569 (suspend-emacs "pwd")
570 @result{} nil
571 @end group
572 @group
573 ---------- Buffer: Minibuffer ----------
574 Really suspend? @kbd{y}
575 ---------- Buffer: Minibuffer ----------
576 @end group
577
578 @group
579 ---------- Parent Shell ----------
580 lewis@@slug[23] % /user/lewis/manual
581 lewis@@slug[24] % fg
582 @end group
583
584 @group
585 ---------- Echo Area ----------
586 Resumed!
587 @end group
588 @end smallexample
589 @end defun
590
591 @defvar suspend-hook
592 This variable is a normal hook that Emacs runs before suspending.
593 @end defvar
594
595 @defvar suspend-resume-hook
596 This variable is a normal hook that Emacs runs on resuming
597 after a suspension.
598 @end defvar
599
600 @node System Environment
601 @section Operating System Environment
602 @cindex operating system environment
603
604 Emacs provides access to variables in the operating system environment
605 through various functions. These variables include the name of the
606 system, the user's @acronym{UID}, and so on.
607
608 @defvar system-configuration
609 This variable holds the standard GNU configuration name for the
610 hardware/software configuration of your system, as a string. The
611 convenient way to test parts of this string is with
612 @code{string-match}.
613 @end defvar
614
615 @defvar system-type
616 The value of this variable is a symbol indicating the type of operating
617 system Emacs is operating on. Here is a table of the possible values:
618
619 @table @code
620 @item alpha-vms
621 VMS on the Alpha.
622
623 @item aix-v3
624 AIX.
625
626 @item berkeley-unix
627 Berkeley BSD.
628
629 @item cygwin
630 Cygwin.
631
632 @item dgux
633 Data General DGUX operating system.
634
635 @item gnu
636 the GNU system (using the GNU kernel, which consists of the HURD and Mach).
637
638 @item gnu/linux
639 A GNU/Linux system---that is, a variant GNU system, using the Linux
640 kernel. (These systems are the ones people often call ``Linux,'' but
641 actually Linux is just the kernel, not the whole system.)
642
643 @item hpux
644 Hewlett-Packard HPUX operating system.
645
646 @item irix
647 Silicon Graphics Irix system.
648
649 @item ms-dos
650 Microsoft MS-DOS ``operating system.'' Emacs compiled with DJGPP for
651 MS-DOS binds @code{system-type} to @code{ms-dos} even when you run it on
652 MS-Windows.
653
654 @item next-mach
655 NeXT Mach-based system.
656
657 @item rtu
658 Masscomp RTU, UCB universe.
659
660 @item unisoft-unix
661 UniSoft UniPlus.
662
663 @item usg-unix-v
664 AT&T System V.
665
666 @item vax-vms
667 VAX VMS.
668
669 @item windows-nt
670 Microsoft windows NT. The same executable supports Windows 9X, but the
671 value of @code{system-type} is @code{windows-nt} in either case.
672
673 @item xenix
674 SCO Xenix 386.
675 @end table
676
677 We do not wish to add new symbols to make finer distinctions unless it
678 is absolutely necessary! In fact, we hope to eliminate some of these
679 alternatives in the future. We recommend using
680 @code{system-configuration} to distinguish between different operating
681 systems.
682 @end defvar
683
684 @defun system-name
685 This function returns the name of the machine you are running on.
686 @example
687 (system-name)
688 @result{} "www.gnu.org"
689 @end example
690 @end defun
691
692 The symbol @code{system-name} is a variable as well as a function. In
693 fact, the function returns whatever value the variable
694 @code{system-name} currently holds. Thus, you can set the variable
695 @code{system-name} in case Emacs is confused about the name of your
696 system. The variable is also useful for constructing frame titles
697 (@pxref{Frame Titles}).
698
699 @defvar mail-host-address
700 If this variable is non-@code{nil}, it is used instead of
701 @code{system-name} for purposes of generating email addresses. For
702 example, it is used when constructing the default value of
703 @code{user-mail-address}. @xref{User Identification}. (Since this is
704 done when Emacs starts up, the value actually used is the one saved when
705 Emacs was dumped. @xref{Building Emacs}.)
706 @end defvar
707
708 @deffn Command getenv var
709 @cindex environment variable access
710 This function returns the value of the environment variable @var{var},
711 as a string. @var{var} should be a string. If @var{var} is undefined
712 in the environment, @code{getenv} returns @code{nil}. If returns
713 @samp{""} if @var{var} is set but null. Within Emacs, the environment
714 variable values are kept in the Lisp variable @code{process-environment}.
715
716 @example
717 @group
718 (getenv "USER")
719 @result{} "lewis"
720 @end group
721
722 @group
723 lewis@@slug[10] % printenv
724 PATH=.:/user/lewis/bin:/usr/bin:/usr/local/bin
725 USER=lewis
726 @end group
727 @group
728 TERM=ibmapa16
729 SHELL=/bin/csh
730 HOME=/user/lewis
731 @end group
732 @end example
733 @end deffn
734
735 @c Emacs 19 feature
736 @deffn Command setenv variable &optional value
737 This command sets the value of the environment variable named
738 @var{variable} to @var{value}. @var{variable} should be a string.
739 Internally, Emacs Lisp can handle any string. However, normally
740 @var{variable} should be a valid shell identifier, that is, a sequence
741 of letters, digits and underscores, starting with a letter or
742 underscore. Otherwise, errors may occur if subprocesses of Emacs try
743 to access the value of @var{variable}. If @var{value} is omitted or
744 @code{nil}, @code{setenv} removes @var{variable} from the environment.
745 Otherwise, @var{value} should be a string.
746
747 @code{setenv} works by modifying @code{process-environment}; binding
748 that variable with @code{let} is also reasonable practice.
749
750 @code{setenv} returns the new value of @var{variable}, or @code{nil}
751 if it removed @var{variable} from the environment.
752 @end deffn
753
754 @defvar process-environment
755 This variable is a list of strings, each describing one environment
756 variable. The functions @code{getenv} and @code{setenv} work by means
757 of this variable.
758
759 @smallexample
760 @group
761 process-environment
762 @result{} ("l=/usr/stanford/lib/gnuemacs/lisp"
763 "PATH=.:/user/lewis/bin:/usr/class:/nfsusr/local/bin"
764 "USER=lewis"
765 @end group
766 @group
767 "TERM=ibmapa16"
768 "SHELL=/bin/csh"
769 "HOME=/user/lewis")
770 @end group
771 @end smallexample
772
773 If @code{process-environment} contains ``duplicate'' elements that
774 specify the same environment variable, the first of these elements
775 specifies the variable, and the other ``duplicates'' are ignored.
776 @end defvar
777
778 @defvar path-separator
779 This variable holds a string which says which character separates
780 directories in a search path (as found in an environment variable). Its
781 value is @code{":"} for Unix and GNU systems, and @code{";"} for MS-DOS
782 and MS-Windows.
783 @end defvar
784
785 @defun parse-colon-path path
786 @tindex parse-colon-path
787 This function takes a search path string such as would be the value of
788 the @code{PATH} environment variable, and splits it at the separators,
789 returning a list of directory names. @code{nil} in this list stands for
790 ``use the current directory.'' Although the function's name says
791 ``colon,'' it actually uses the value of @code{path-separator}.
792
793 @example
794 (parse-colon-path ":/foo:/bar")
795 @result{} (nil "/foo/" "/bar/")
796 @end example
797 @end defun
798
799 @defvar invocation-name
800 This variable holds the program name under which Emacs was invoked. The
801 value is a string, and does not include a directory name.
802 @end defvar
803
804 @defvar invocation-directory
805 This variable holds the directory from which the Emacs executable was
806 invoked, or perhaps @code{nil} if that directory cannot be determined.
807 @end defvar
808
809 @defvar installation-directory
810 If non-@code{nil}, this is a directory within which to look for the
811 @file{lib-src} and @file{etc} subdirectories. This is non-@code{nil}
812 when Emacs can't find those directories in their standard installed
813 locations, but can find them in a directory related somehow to the one
814 containing the Emacs executable.
815 @end defvar
816
817 @defun load-average &optional use-float
818 This function returns the current 1-minute, 5-minute, and 15-minute load
819 averages, in a list.
820
821 By default, the values are integers that are 100 times the system load
822 averages, which indicate the average number of processes trying to run.
823 If @var{use-float} is non-@code{nil}, then they are returned
824 as floating point numbers and without multiplying by 100.
825
826 If it is impossible to obtain the load average, this function signals
827 an error. On some platforms, access to load averages requires
828 installing Emacs as setuid or setgid so that it can read kernel
829 information, and that usually isn't advisable.
830
831 If the 1-minute load average is available, but the 5- or 15-minute
832 averages are not, this function returns a shortened list containing
833 the available averages.
834
835 @example
836 @group
837 (load-average)
838 @result{} (169 48 36)
839 @end group
840 @group
841 (load-average t)
842 @result{} (1.69 0.48 0.36)
843 @end group
844
845 @group
846 lewis@@rocky[5] % uptime
847 11:55am up 1 day, 19:37, 3 users,
848 load average: 1.69, 0.48, 0.36
849 @end group
850 @end example
851 @end defun
852
853 @defun emacs-pid
854 This function returns the process @acronym{ID} of the Emacs process,
855 as an integer.
856 @end defun
857
858 @defvar tty-erase-char
859 This variable holds the erase character that was selected
860 in the system's terminal driver, before Emacs was started.
861 The value is @code{nil} if Emacs is running under a window system.
862 @end defvar
863
864 @defun setprv privilege-name &optional setp getprv
865 This function sets or resets a VMS privilege. (It does not exist on
866 other systems.) The first argument is the privilege name, as a string.
867 The second argument, @var{setp}, is @code{t} or @code{nil}, indicating
868 whether the privilege is to be turned on or off. Its default is
869 @code{nil}. The function returns @code{t} if successful, @code{nil}
870 otherwise.
871
872 If the third argument, @var{getprv}, is non-@code{nil}, @code{setprv}
873 does not change the privilege, but returns @code{t} or @code{nil}
874 indicating whether the privilege is currently enabled.
875 @end defun
876
877 @node User Identification
878 @section User Identification
879
880 @defvar init-file-user
881 This variable says which user's init files should be used by
882 Emacs---or @code{nil} if none. @code{""} stands for the user who
883 originally logged in. The value reflects command-line options such as
884 @samp{-q} or @samp{-u @var{user}}.
885
886 Lisp packages that load files of customizations, or any other sort of
887 user profile, should obey this variable in deciding where to find it.
888 They should load the profile of the user name found in this variable.
889 If @code{init-file-user} is @code{nil}, meaning that the @samp{-q}
890 option was used, then Lisp packages should not load any customization
891 files or user profile.
892 @end defvar
893
894 @defvar user-mail-address
895 This holds the nominal email address of the user who is using Emacs.
896 Emacs normally sets this variable to a default value after reading your
897 init files, but not if you have already set it. So you can set the
898 variable to some other value in your init file if you do not
899 want to use the default value.
900 @end defvar
901
902 @defun user-login-name &optional uid
903 If you don't specify @var{uid}, this function returns the name under
904 which the user is logged in. If the environment variable @code{LOGNAME}
905 is set, that value is used. Otherwise, if the environment variable
906 @code{USER} is set, that value is used. Otherwise, the value is based
907 on the effective @acronym{UID}, not the real @acronym{UID}.
908
909 If you specify @var{uid}, the value is the user name that corresponds
910 to @var{uid} (which should be an integer), or @code{nil} if there is
911 no such user.
912
913 @example
914 @group
915 (user-login-name)
916 @result{} "lewis"
917 @end group
918 @end example
919 @end defun
920
921 @defun user-real-login-name
922 This function returns the user name corresponding to Emacs's real
923 @acronym{UID}. This ignores the effective @acronym{UID} and ignores the
924 environment variables @code{LOGNAME} and @code{USER}.
925 @end defun
926
927 @defun user-full-name &optional uid
928 This function returns the full name of the logged-in user---or the value
929 of the environment variable @code{NAME}, if that is set.
930
931 @c "Bil" is the correct spelling.
932 @example
933 @group
934 (user-full-name)
935 @result{} "Bil Lewis"
936 @end group
937 @end example
938
939 If the Emacs job's user-id does not correspond to any known user (and
940 provided @code{NAME} is not set), the value is @code{"unknown"}.
941
942 If @var{uid} is non-@code{nil}, then it should be a number (a user-id)
943 or a string (a login name). Then @code{user-full-name} returns the full
944 name corresponding to that user-id or login name. If you specify a
945 user-id or login name that isn't defined, it returns @code{nil}.
946 @end defun
947
948 @vindex user-full-name
949 @vindex user-real-login-name
950 @vindex user-login-name
951 The symbols @code{user-login-name}, @code{user-real-login-name} and
952 @code{user-full-name} are variables as well as functions. The functions
953 return the same values that the variables hold. These variables allow
954 you to ``fake out'' Emacs by telling the functions what to return. The
955 variables are also useful for constructing frame titles (@pxref{Frame
956 Titles}).
957
958 @defun user-real-uid
959 This function returns the real @acronym{UID} of the user.
960 The value may be a floating point number.
961
962 @example
963 @group
964 (user-real-uid)
965 @result{} 19
966 @end group
967 @end example
968 @end defun
969
970 @defun user-uid
971 This function returns the effective @acronym{UID} of the user.
972 The value may be a floating point number.
973 @end defun
974
975 @node Time of Day
976 @section Time of Day
977
978 This section explains how to determine the current time and the time
979 zone.
980
981 @defun current-time-string &optional time-value
982 This function returns the current time and date as a human-readable
983 string. The format of the string is unvarying; the number of characters
984 used for each part is always the same, so you can reliably use
985 @code{substring} to extract pieces of it. It is wise to count the
986 characters from the beginning of the string rather than from the end, as
987 additional information may some day be added at the end.
988
989 @c Emacs 19 feature
990 The argument @var{time-value}, if given, specifies a time to format
991 instead of the current time. The argument should be a list whose first
992 two elements are integers. Thus, you can use times obtained from
993 @code{current-time} (see below) and from @code{file-attributes}
994 (@pxref{Definition of file-attributes}). @var{time-value} can also be
995 a cons of two integers, but this is considered obsolete.
996
997 @example
998 @group
999 (current-time-string)
1000 @result{} "Wed Oct 14 22:21:05 1987"
1001 @end group
1002 @end example
1003 @end defun
1004
1005 @c Emacs 19 feature
1006 @defun current-time
1007 This function returns the system's time value as a list of three
1008 integers: @code{(@var{high} @var{low} @var{microsec})}. The integers
1009 @var{high} and @var{low} combine to give the number of seconds since
1010 0:00 January 1, 1970 UTC (Coordinated Universal Time), which is
1011 @ifnottex
1012 @var{high} * 2**16 + @var{low}.
1013 @end ifnottex
1014 @tex
1015 $high*2^{16}+low$.
1016 @end tex
1017
1018 The third element, @var{microsec}, gives the microseconds since the
1019 start of the current second (or 0 for systems that return time with
1020 the resolution of only one second).
1021
1022 The first two elements can be compared with file time values such as you
1023 get with the function @code{file-attributes}.
1024 @xref{Definition of file-attributes}.
1025 @end defun
1026
1027 @c Emacs 19 feature
1028 @defun current-time-zone &optional time-value
1029 This function returns a list describing the time zone that the user is
1030 in.
1031
1032 The value has the form @code{(@var{offset} @var{name})}. Here
1033 @var{offset} is an integer giving the number of seconds ahead of UTC
1034 (east of Greenwich). A negative value means west of Greenwich. The
1035 second element, @var{name}, is a string giving the name of the time
1036 zone. Both elements change when daylight savings time begins or ends;
1037 if the user has specified a time zone that does not use a seasonal time
1038 adjustment, then the value is constant through time.
1039
1040 If the operating system doesn't supply all the information necessary to
1041 compute the value, the unknown elements of the list are @code{nil}.
1042
1043 The argument @var{time-value}, if given, specifies a time to analyze
1044 instead of the current time. The argument should have the same form
1045 as for @code{current-time-string} (see above). Thus, you can use
1046 times obtained from @code{current-time} (see above) and from
1047 @code{file-attributes}. @xref{Definition of file-attributes}.
1048 @end defun
1049
1050 @defun set-time-zone-rule tz
1051 This function specifies the local time zone according to @var{tz}. If
1052 @var{tz} is @code{nil}, that means to use an implementation-defined
1053 default time zone. If @var{tz} is @code{t}, that means to use
1054 Universal Time. Otherwise, @var{tz} should be a string specifying a
1055 time zone rule.
1056 @end defun
1057
1058 @defun float-time &optional time-value
1059 This function returns the current time as a floating-point number of
1060 seconds since the epoch. The argument @var{time-value}, if given,
1061 specifies a time to convert instead of the current time. The argument
1062 should have the same form as for @code{current-time-string} (see
1063 above). Thus, it accepts the output of @code{current-time} and
1064 @code{file-attributes}.
1065
1066 @emph{Warning}: Since the result is floating point, it may not be
1067 exact. Do not use this function if precise time stamps are required.
1068 @end defun
1069
1070 @node Time Conversion
1071 @section Time Conversion
1072
1073 These functions convert time values (lists of two or three integers)
1074 to strings or to calendrical information. There is also a function to
1075 convert calendrical information to a time value. You can get time
1076 values from the functions @code{current-time} (@pxref{Time of Day}) and
1077 @code{file-attributes} (@pxref{Definition of file-attributes}).
1078
1079 Many operating systems are limited to time values that contain 32 bits
1080 of information; these systems typically handle only the times from
1081 1901-12-13 20:45:52 UTC through 2038-01-19 03:14:07 UTC. However, some
1082 operating systems have larger time values, and can represent times far
1083 in the past or future.
1084
1085 Time conversion functions always use the Gregorian calendar, even for
1086 dates before the Gregorian calendar was introduced. Year numbers count
1087 the number of years since the year 1 B.C., and do not skip zero as
1088 traditional Gregorian years do; for example, the year number @minus{}37
1089 represents the Gregorian year 38 B.C@.
1090
1091 @defun date-to-time string
1092 This function parses the time-string @var{string} and returns the
1093 corresponding time value.
1094 @end defun
1095
1096 @defun format-time-string format-string &optional time universal
1097 This function converts @var{time} (or the current time, if @var{time} is
1098 omitted) to a string according to @var{format-string}. The argument
1099 @var{format-string} may contain @samp{%}-sequences which say to
1100 substitute parts of the time. Here is a table of what the
1101 @samp{%}-sequences mean:
1102
1103 @table @samp
1104 @item %a
1105 This stands for the abbreviated name of the day of week.
1106 @item %A
1107 This stands for the full name of the day of week.
1108 @item %b
1109 This stands for the abbreviated name of the month.
1110 @item %B
1111 This stands for the full name of the month.
1112 @item %c
1113 This is a synonym for @samp{%x %X}.
1114 @item %C
1115 This has a locale-specific meaning. In the default locale (named C), it
1116 is equivalent to @samp{%A, %B %e, %Y}.
1117 @item %d
1118 This stands for the day of month, zero-padded.
1119 @item %D
1120 This is a synonym for @samp{%m/%d/%y}.
1121 @item %e
1122 This stands for the day of month, blank-padded.
1123 @item %h
1124 This is a synonym for @samp{%b}.
1125 @item %H
1126 This stands for the hour (00-23).
1127 @item %I
1128 This stands for the hour (01-12).
1129 @item %j
1130 This stands for the day of the year (001-366).
1131 @item %k
1132 This stands for the hour (0-23), blank padded.
1133 @item %l
1134 This stands for the hour (1-12), blank padded.
1135 @item %m
1136 This stands for the month (01-12).
1137 @item %M
1138 This stands for the minute (00-59).
1139 @item %n
1140 This stands for a newline.
1141 @item %p
1142 This stands for @samp{AM} or @samp{PM}, as appropriate.
1143 @item %r
1144 This is a synonym for @samp{%I:%M:%S %p}.
1145 @item %R
1146 This is a synonym for @samp{%H:%M}.
1147 @item %S
1148 This stands for the seconds (00-59).
1149 @item %t
1150 This stands for a tab character.
1151 @item %T
1152 This is a synonym for @samp{%H:%M:%S}.
1153 @item %U
1154 This stands for the week of the year (01-52), assuming that weeks
1155 start on Sunday.
1156 @item %w
1157 This stands for the numeric day of week (0-6). Sunday is day 0.
1158 @item %W
1159 This stands for the week of the year (01-52), assuming that weeks
1160 start on Monday.
1161 @item %x
1162 This has a locale-specific meaning. In the default locale (named
1163 @samp{C}), it is equivalent to @samp{%D}.
1164 @item %X
1165 This has a locale-specific meaning. In the default locale (named
1166 @samp{C}), it is equivalent to @samp{%T}.
1167 @item %y
1168 This stands for the year without century (00-99).
1169 @item %Y
1170 This stands for the year with century.
1171 @item %Z
1172 This stands for the time zone abbreviation.
1173 @end table
1174
1175 You can also specify the field width and type of padding for any of
1176 these @samp{%}-sequences. This works as in @code{printf}: you write
1177 the field width as digits in the middle of a @samp{%}-sequences. If you
1178 start the field width with @samp{0}, it means to pad with zeros. If you
1179 start the field width with @samp{_}, it means to pad with spaces.
1180
1181 For example, @samp{%S} specifies the number of seconds since the minute;
1182 @samp{%03S} means to pad this with zeros to 3 positions, @samp{%_3S} to
1183 pad with spaces to 3 positions. Plain @samp{%3S} pads with zeros,
1184 because that is how @samp{%S} normally pads to two positions.
1185
1186 The characters @samp{E} and @samp{O} act as modifiers when used between
1187 @samp{%} and one of the letters in the table above. @samp{E} specifies
1188 using the current locale's ``alternative'' version of the date and time.
1189 In a Japanese locale, for example, @code{%Ex} might yield a date format
1190 based on the Japanese Emperors' reigns. @samp{E} is allowed in
1191 @samp{%Ec}, @samp{%EC}, @samp{%Ex}, @samp{%EX}, @samp{%Ey}, and
1192 @samp{%EY}.
1193
1194 @samp{O} means to use the current locale's ``alternative''
1195 representation of numbers, instead of the ordinary decimal digits. This
1196 is allowed with most letters, all the ones that output numbers.
1197
1198 If @var{universal} is non-@code{nil}, that means to describe the time as
1199 Universal Time; @code{nil} means describe it using what Emacs believes
1200 is the local time zone (see @code{current-time-zone}).
1201
1202 This function uses the C library function @code{strftime} to do most of
1203 the work. In order to communicate with that function, it first encodes
1204 its argument using the coding system specified by
1205 @code{locale-coding-system} (@pxref{Locales}); after @code{strftime}
1206 returns the resulting string, @code{format-time-string} decodes the
1207 string using that same coding system.
1208 @end defun
1209
1210 @defun seconds-to-time seconds
1211 This function converts @var{seconds}, a floating point number of
1212 seconds since the epoch, to a time value and returns that. To perform
1213 the inverse conversion, use @code{float-time}.
1214 @end defun
1215
1216 @defun decode-time &optional time
1217 This function converts a time value into calendrical information. If
1218 you don't specify @var{time}, it decodes the current time. The return
1219 value is a list of nine elements, as follows:
1220
1221 @example
1222 (@var{seconds} @var{minutes} @var{hour} @var{day} @var{month} @var{year} @var{dow} @var{dst} @var{zone})
1223 @end example
1224
1225 Here is what the elements mean:
1226
1227 @table @var
1228 @item seconds
1229 The number of seconds past the minute, as an integer between 0 and 59.
1230 On some operating systems, this is 60 for leap seconds.
1231 @item minutes
1232 The number of minutes past the hour, as an integer between 0 and 59.
1233 @item hour
1234 The hour of the day, as an integer between 0 and 23.
1235 @item day
1236 The day of the month, as an integer between 1 and 31.
1237 @item month
1238 The month of the year, as an integer between 1 and 12.
1239 @item year
1240 The year, an integer typically greater than 1900.
1241 @item dow
1242 The day of week, as an integer between 0 and 6, where 0 stands for
1243 Sunday.
1244 @item dst
1245 @code{t} if daylight savings time is effect, otherwise @code{nil}.
1246 @item zone
1247 An integer indicating the time zone, as the number of seconds east of
1248 Greenwich.
1249 @end table
1250
1251 @strong{Common Lisp Note:} Common Lisp has different meanings for
1252 @var{dow} and @var{zone}.
1253 @end defun
1254
1255 @defun encode-time seconds minutes hour day month year &optional zone
1256 This function is the inverse of @code{decode-time}. It converts seven
1257 items of calendrical data into a time value. For the meanings of the
1258 arguments, see the table above under @code{decode-time}.
1259
1260 Year numbers less than 100 are not treated specially. If you want them
1261 to stand for years above 1900, or years above 2000, you must alter them
1262 yourself before you call @code{encode-time}.
1263
1264 The optional argument @var{zone} defaults to the current time zone and
1265 its daylight savings time rules. If specified, it can be either a list
1266 (as you would get from @code{current-time-zone}), a string as in the
1267 @code{TZ} environment variable, @code{t} for Universal Time, or an
1268 integer (as you would get from @code{decode-time}). The specified
1269 zone is used without any further alteration for daylight savings time.
1270
1271 If you pass more than seven arguments to @code{encode-time}, the first
1272 six are used as @var{seconds} through @var{year}, the last argument is
1273 used as @var{zone}, and the arguments in between are ignored. This
1274 feature makes it possible to use the elements of a list returned by
1275 @code{decode-time} as the arguments to @code{encode-time}, like this:
1276
1277 @example
1278 (apply 'encode-time (decode-time @dots{}))
1279 @end example
1280
1281 You can perform simple date arithmetic by using out-of-range values for
1282 the @var{seconds}, @var{minutes}, @var{hour}, @var{day}, and @var{month}
1283 arguments; for example, day 0 means the day preceding the given month.
1284
1285 The operating system puts limits on the range of possible time values;
1286 if you try to encode a time that is out of range, an error results.
1287 For instance, years before 1970 do not work on some systems;
1288 on others, years as early as 1901 do work.
1289 @end defun
1290
1291 @node Processor Run Time
1292 @section Processor Run time
1293
1294 @defun get-internal-run-time
1295 This function returns the processor run time used by Emacs as a list
1296 of three integers: @code{(@var{high} @var{low} @var{microsec})}. The
1297 integers @var{high} and @var{low} combine to give the number of
1298 seconds, which is
1299 @ifnottex
1300 @var{high} * 2**16 + @var{low}.
1301 @end ifnottex
1302 @tex
1303 $high*2^{16}+low$.
1304 @end tex
1305
1306 The third element, @var{microsec}, gives the microseconds (or 0 for
1307 systems that return time with the resolution of only one second).
1308
1309 If the system doesn't provide a way to determine the processor run
1310 time, get-internal-run-time returns the same time as current-time.
1311 @end defun
1312
1313 @node Time Calculations
1314 @section Time Calculations
1315
1316 These functions perform calendrical computations using time values
1317 (the kind of list that @code{current-time} returns).
1318
1319 @defun time-less-p t1 t2
1320 This returns @code{t} if time value @var{t1} is less than time value
1321 @var{t2}.
1322 @end defun
1323
1324 @defun time-subtract t1 t2
1325 This returns the time difference @var{t1} @minus{} @var{t2} between
1326 two time values, in the same format as a time value.
1327 @end defun
1328
1329 @defun time-add t1 t2
1330 This returns the sum of two time values, one of which ought to
1331 represent a time difference rather than a point in time.
1332 Here is how to add a number of seconds to a time value:
1333
1334 @example
1335 (time-add @var{time} (seconds-to-time @var{seconds}))
1336 @end example
1337 @end defun
1338
1339 @defun time-to-days time
1340 This function returns the number of days between the beginning of year
1341 1 and @var{time}.
1342 @end defun
1343
1344 @defun time-to-day-in-year time
1345 This returns the day number within the year corresponding to @var{time}.
1346 @end defun
1347
1348 @defun date-leap-year-p year
1349 This function returns @code{t} if @var{year} is a leap year.
1350 @end defun
1351
1352 @node Timers
1353 @section Timers for Delayed Execution
1354 @cindex timer
1355
1356 You can set up a @dfn{timer} to call a function at a specified
1357 future time or after a certain length of idleness.
1358
1359 Emacs cannot run timers at any arbitrary point in a Lisp program; it
1360 can run them only when Emacs could accept output from a subprocess:
1361 namely, while waiting or inside certain primitive functions such as
1362 @code{sit-for} or @code{read-event} which @emph{can} wait. Therefore, a
1363 timer's execution may be delayed if Emacs is busy. However, the time of
1364 execution is very precise if Emacs is idle.
1365
1366 Emacs binds @code{inhibit-quit} to @code{t} before calling the timer
1367 function, because quitting out of many timer functions can leave
1368 things in an inconsistent state. This is normally unproblematical
1369 because most timer functions don't do a lot of work. Indeed, for a
1370 timer to call a function that takes substantial time to run is likely
1371 to be annoying.
1372
1373 It is usually a bad idea for timer functions to alter buffer
1374 contents. When they do, they usually should call @code{undo-boundary}
1375 both before and after changing the buffer, to separate the timer's
1376 changes from user commands' changes and prevent a single undo entry
1377 from growing to be quite large.
1378
1379 If a timer function calls functions that can change the match data,
1380 it should save and restore the match data. @xref{Saving Match Data}.
1381
1382 @deffn Command run-at-time time repeat function &rest args
1383 This sets up a timer that calls the function @var{function} with
1384 arguments @var{args} at time @var{time}. If @var{repeat} is a number
1385 (integer or floating point), the timer also runs every @var{repeat}
1386 seconds after that. If @var{repeat} is @code{nil}, the timer runs
1387 only once.
1388
1389 @var{time} may specify an absolute or a relative time.
1390
1391 Absolute times may be specified in a wide variety of formats; this
1392 function tries to accept all the commonly used date formats. The most
1393 convenient formats are strings. Valid such formats include these two,
1394
1395 @example
1396 @var{year}-@var{month}-@var{day} @var{hour}:@var{min}:@var{sec} @var{timezone}
1397
1398 @var{hour}:@var{min}:@var{sec} @var{timezone} @var{month}/@var{day}/@var{year}
1399 @end example
1400
1401 @noindent
1402 where in both examples all fields are numbers; the format that
1403 @code{current-time-string} returns is also allowed, and many others
1404 as well.
1405
1406 To specify a relative time as a string, use numbers followed by units.
1407 For example:
1408
1409 @table @samp
1410 @item 1 min
1411 denotes 1 minute from now.
1412 @item 1 min 5 sec
1413 denotes 65 seconds from now.
1414 @item 1 min 2 sec 3 hour 4 day 5 week 6 fortnight 7 month 8 year
1415 denotes exactly 103 months, 123 days, and 10862 seconds from now.
1416 @end table
1417
1418 For relative time values, Emacs considers a month to be exactly thirty
1419 days, and a year to be exactly 365.25 days.
1420
1421 Not all convenient formats are strings. If @var{time} is a number
1422 (integer or floating point), that specifies a relative time measured
1423 in seconds.
1424
1425 In most cases, @var{repeat} has no effect on when @emph{first} call
1426 takes place---@var{time} alone specifies that. There is one exception:
1427 if @var{time} is @code{t}, then the timer runs whenever the time is a
1428 multiple of @var{repeat} seconds after the epoch. This is useful for
1429 functions like @code{display-time}.
1430
1431 The function @code{run-at-time} returns a timer value that identifies
1432 the particular scheduled future action. You can use this value to call
1433 @code{cancel-timer} (see below).
1434 @end deffn
1435
1436 @defmac with-timeout (seconds timeout-forms@dots{}) body@dots{}
1437 Execute @var{body}, but give up after @var{seconds} seconds. If
1438 @var{body} finishes before the time is up, @code{with-timeout} returns
1439 the value of the last form in @var{body}. If, however, the execution of
1440 @var{body} is cut short by the timeout, then @code{with-timeout}
1441 executes all the @var{timeout-forms} and returns the value of the last
1442 of them.
1443
1444 This macro works by setting a timer to run after @var{seconds} seconds. If
1445 @var{body} finishes before that time, it cancels the timer. If the
1446 timer actually runs, it terminates execution of @var{body}, then
1447 executes @var{timeout-forms}.
1448
1449 Since timers can run within a Lisp program only when the program calls a
1450 primitive that can wait, @code{with-timeout} cannot stop executing
1451 @var{body} while it is in the midst of a computation---only when it
1452 calls one of those primitives. So use @code{with-timeout} only with a
1453 @var{body} that waits for input, not one that does a long computation.
1454 @end defmac
1455
1456 The function @code{y-or-n-p-with-timeout} provides a simple way to use
1457 a timer to avoid waiting too long for an answer. @xref{Yes-or-No
1458 Queries}.
1459
1460 @deffn Command run-with-idle-timer secs repeat function &rest args
1461 Set up a timer which runs when Emacs has been idle for @var{secs}
1462 seconds. The value of @var{secs} may be an integer or a floating point
1463 number.
1464
1465 If @var{repeat} is @code{nil}, the timer runs just once, the first time
1466 Emacs remains idle for a long enough time. More often @var{repeat} is
1467 non-@code{nil}, which means to run the timer @emph{each time} Emacs
1468 remains idle for @var{secs} seconds.
1469
1470 The function @code{run-with-idle-timer} returns a timer value which you
1471 can use in calling @code{cancel-timer} (see below).
1472 @end deffn
1473
1474 @cindex idleness
1475 Emacs becomes ``idle'' when it starts waiting for user input, and it
1476 remains idle until the user provides some input. If a timer is set for
1477 five seconds of idleness, it runs approximately five seconds after Emacs
1478 first becomes idle. Even if @var{repeat} is non-@code{nil}, this timer
1479 will not run again as long as Emacs remains idle, because the duration
1480 of idleness will continue to increase and will not go down to five
1481 seconds again.
1482
1483 Emacs can do various things while idle: garbage collect, autosave or
1484 handle data from a subprocess. But these interludes during idleness do
1485 not interfere with idle timers, because they do not reset the clock of
1486 idleness to zero. An idle timer set for 600 seconds will run when ten
1487 minutes have elapsed since the last user command was finished, even if
1488 subprocess output has been accepted thousands of times within those ten
1489 minutes, and even if there have been garbage collections and autosaves.
1490
1491 When the user supplies input, Emacs becomes non-idle while executing the
1492 input. Then it becomes idle again, and all the idle timers that are
1493 set up to repeat will subsequently run another time, one by one.
1494
1495 @defun cancel-timer timer
1496 Cancel the requested action for @var{timer}, which should be a value
1497 previously returned by @code{run-at-time} or @code{run-with-idle-timer}.
1498 This cancels the effect of that call to one of these functions; the
1499 arrival of the specified time will not cause anything special to happen.
1500 @end defun
1501
1502 @node Terminal Input
1503 @section Terminal Input
1504 @cindex terminal input
1505
1506 This section describes functions and variables for recording or
1507 manipulating terminal input. See @ref{Display}, for related
1508 functions.
1509
1510 @menu
1511 * Input Modes:: Options for how input is processed.
1512 * Translating Input:: Low level conversion of some characters or events
1513 into others.
1514 * Recording Input:: Saving histories of recent or all input events.
1515 @end menu
1516
1517 @node Input Modes
1518 @subsection Input Modes
1519 @cindex input modes
1520 @cindex terminal input modes
1521
1522 @defun set-input-mode interrupt flow meta &optional quit-char
1523 This function sets the mode for reading keyboard input. If
1524 @var{interrupt} is non-null, then Emacs uses input interrupts. If it is
1525 @code{nil}, then it uses @sc{cbreak} mode. The default setting is
1526 system-dependent. Some systems always use @sc{cbreak} mode regardless
1527 of what is specified.
1528
1529 When Emacs communicates directly with X, it ignores this argument and
1530 uses interrupts if that is the way it knows how to communicate.
1531
1532 If @var{flow} is non-@code{nil}, then Emacs uses @sc{xon/xoff}
1533 (@kbd{C-q}, @kbd{C-s}) flow control for output to the terminal. This
1534 has no effect except in @sc{cbreak} mode.
1535
1536 @c Emacs 19 feature
1537 The argument @var{meta} controls support for input character codes
1538 above 127. If @var{meta} is @code{t}, Emacs converts characters with
1539 the 8th bit set into Meta characters. If @var{meta} is @code{nil},
1540 Emacs disregards the 8th bit; this is necessary when the terminal uses
1541 it as a parity bit. If @var{meta} is neither @code{t} nor @code{nil},
1542 Emacs uses all 8 bits of input unchanged. This is good for terminals
1543 that use 8-bit character sets.
1544
1545 @c Emacs 19 feature
1546 If @var{quit-char} is non-@code{nil}, it specifies the character to
1547 use for quitting. Normally this character is @kbd{C-g}.
1548 @xref{Quitting}.
1549 @end defun
1550
1551 The @code{current-input-mode} function returns the input mode settings
1552 Emacs is currently using.
1553
1554 @c Emacs 19 feature
1555 @defun current-input-mode
1556 This function returns the current mode for reading keyboard input. It
1557 returns a list, corresponding to the arguments of @code{set-input-mode},
1558 of the form @code{(@var{interrupt} @var{flow} @var{meta} @var{quit})} in
1559 which:
1560 @table @var
1561 @item interrupt
1562 is non-@code{nil} when Emacs is using interrupt-driven input. If
1563 @code{nil}, Emacs is using @sc{cbreak} mode.
1564 @item flow
1565 is non-@code{nil} if Emacs uses @sc{xon/xoff} (@kbd{C-q}, @kbd{C-s})
1566 flow control for output to the terminal. This value is meaningful only
1567 when @var{interrupt} is @code{nil}.
1568 @item meta
1569 is @code{t} if Emacs treats the eighth bit of input characters as
1570 the meta bit; @code{nil} means Emacs clears the eighth bit of every
1571 input character; any other value means Emacs uses all eight bits as the
1572 basic character code.
1573 @item quit
1574 is the character Emacs currently uses for quitting, usually @kbd{C-g}.
1575 @end table
1576 @end defun
1577
1578 @node Translating Input
1579 @subsection Translating Input Events
1580 @cindex translating input events
1581
1582 This section describes features for translating input events into
1583 other input events before they become part of key sequences. These
1584 features apply to each event in the order they are described here: each
1585 event is first modified according to @code{extra-keyboard-modifiers},
1586 then translated through @code{keyboard-translate-table} (if applicable),
1587 and finally decoded with the specified keyboard coding system. If it is
1588 being read as part of a key sequence, it is then added to the sequence
1589 being read; then subsequences containing it are checked first with
1590 @code{function-key-map} and then with @code{key-translation-map}.
1591
1592 @c Emacs 19 feature
1593 @defvar extra-keyboard-modifiers
1594 This variable lets Lisp programs ``press'' the modifier keys on the
1595 keyboard. The value is a character. Only the modifiers of the
1596 character matter. Each time the user types a keyboard key, it is
1597 altered as if those modifier keys were held down. For instance, if
1598 you bind @code{extra-keyboard-modifiers} to @code{?\C-\M-a}, then all
1599 keyboard input characters typed during the scope of the binding will
1600 have the control and meta modifiers applied to them. The character
1601 @code{?\C-@@}, equivalent to the integer 0, does not count as a control
1602 character for this purpose, but as a character with no modifiers.
1603 Thus, setting @code{extra-keyboard-modifiers} to zero cancels any
1604 modification.
1605
1606 When using a window system, the program can ``press'' any of the
1607 modifier keys in this way. Otherwise, only the @key{CTL} and @key{META}
1608 keys can be virtually pressed.
1609
1610 Note that this variable applies only to events that really come from
1611 the keyboard, and has no effect on mouse events or any other events.
1612 @end defvar
1613
1614 @defvar keyboard-translate-table
1615 This variable is the translate table for keyboard characters. It lets
1616 you reshuffle the keys on the keyboard without changing any command
1617 bindings. Its value is normally a char-table, or else @code{nil}.
1618 (It can also be a string or vector, but this is considered obsolete.)
1619
1620 If @code{keyboard-translate-table} is a char-table
1621 (@pxref{Char-Tables}), then each character read from the keyboard is
1622 looked up in this char-table. If the value found there is
1623 non-@code{nil}, then it is used instead of the actual input character.
1624
1625 Note that this translation is the first thing that happens to a
1626 character after it is read from the terminal. Record-keeping features
1627 such as @code{recent-keys} and dribble files record the characters after
1628 translation.
1629
1630 Note also that this translation is done before the characters are
1631 supplied to input methods (@pxref{Input Methods}). Use
1632 @code{translation-table-for-input} (@pxref{Translation of Characters}),
1633 if you want to translate characters after input methods operate.
1634 @end defvar
1635
1636 @defun keyboard-translate from to
1637 This function modifies @code{keyboard-translate-table} to translate
1638 character code @var{from} into character code @var{to}. It creates
1639 the keyboard translate table if necessary.
1640 @end defun
1641
1642 Here's an example of using the @code{keyboard-translate-table} to
1643 make @kbd{C-x}, @kbd{C-c} and @kbd{C-v} perform the cut, copy and paste
1644 operations:
1645
1646 @example
1647 (keyboard-translate ?\C-x 'control-x)
1648 (keyboard-translate ?\C-c 'control-c)
1649 (keyboard-translate ?\C-v 'control-v)
1650 (global-set-key [control-x] 'kill-region)
1651 (global-set-key [control-c] 'kill-ring-save)
1652 (global-set-key [control-v] 'yank)
1653 @end example
1654
1655 @noindent
1656 On a graphical terminal that supports extended @acronym{ASCII} input,
1657 you can still get the standard Emacs meanings of one of those
1658 characters by typing it with the shift key. That makes it a different
1659 character as far as keyboard translation is concerned, but it has the
1660 same usual meaning.
1661
1662 The remaining translation features translate subsequences of key
1663 sequences being read. They are implemented in @code{read-key-sequence}
1664 and have no effect on input read with @code{read-event}.
1665
1666 @defvar function-key-map
1667 This variable holds a keymap that describes the character sequences sent
1668 by function keys on an ordinary character terminal. This keymap has the
1669 same structure as other keymaps, but is used differently: it specifies
1670 translations to make while reading key sequences, rather than bindings
1671 for key sequences.
1672
1673 If @code{function-key-map} ``binds'' a key sequence @var{k} to a vector
1674 @var{v}, then when @var{k} appears as a subsequence @emph{anywhere} in a
1675 key sequence, it is replaced with the events in @var{v}.
1676
1677 For example, VT100 terminals send @kbd{@key{ESC} O P} when the
1678 keypad @key{PF1} key is pressed. Therefore, we want Emacs to translate
1679 that sequence of events into the single event @code{pf1}. We accomplish
1680 this by ``binding'' @kbd{@key{ESC} O P} to @code{[pf1]} in
1681 @code{function-key-map}, when using a VT100.
1682
1683 Thus, typing @kbd{C-c @key{PF1}} sends the character sequence @kbd{C-c
1684 @key{ESC} O P}; later the function @code{read-key-sequence} translates
1685 this back into @kbd{C-c @key{PF1}}, which it returns as the vector
1686 @code{[?\C-c pf1]}.
1687
1688 Entries in @code{function-key-map} are ignored if they conflict with
1689 bindings made in the minor mode, local, or global keymaps. The intent
1690 is that the character sequences that function keys send should not have
1691 command bindings in their own right---but if they do, the ordinary
1692 bindings take priority.
1693
1694 The value of @code{function-key-map} is usually set up automatically
1695 according to the terminal's Terminfo or Termcap entry, but sometimes
1696 those need help from terminal-specific Lisp files. Emacs comes with
1697 terminal-specific files for many common terminals; their main purpose is
1698 to make entries in @code{function-key-map} beyond those that can be
1699 deduced from Termcap and Terminfo. @xref{Terminal-Specific}.
1700 @end defvar
1701
1702 @defvar key-translation-map
1703 This variable is another keymap used just like @code{function-key-map}
1704 to translate input events into other events. It differs from
1705 @code{function-key-map} in two ways:
1706
1707 @itemize @bullet
1708 @item
1709 @code{key-translation-map} goes to work after @code{function-key-map} is
1710 finished; it receives the results of translation by
1711 @code{function-key-map}.
1712
1713 @item
1714 Non-prefix bindings in @code{key-translation-map} override actual key
1715 bindings. For example, if @kbd{C-x f} has a non-prefix binding in
1716 @code{key-translation-map}, that translation takes effect even though
1717 @kbd{C-x f} also has a key binding in the global map.
1718 @end itemize
1719
1720 Note however that actual key bindings can have an effect on
1721 @code{key-translation-map}, even though they are overridden by it.
1722 Indeed, actual key bindings override @code{function-key-map} and thus
1723 may alter the key sequence that @code{key-translation-map} receives.
1724 Clearly, it is better to avoid to avoid this type of situation.
1725
1726 The intent of @code{key-translation-map} is for users to map one
1727 character set to another, including ordinary characters normally bound
1728 to @code{self-insert-command}.
1729 @end defvar
1730
1731 @cindex key translation function
1732 You can use @code{function-key-map} or @code{key-translation-map} for
1733 more than simple aliases, by using a function, instead of a key
1734 sequence, as the ``translation'' of a key. Then this function is called
1735 to compute the translation of that key.
1736
1737 The key translation function receives one argument, which is the prompt
1738 that was specified in @code{read-key-sequence}---or @code{nil} if the
1739 key sequence is being read by the editor command loop. In most cases
1740 you can ignore the prompt value.
1741
1742 If the function reads input itself, it can have the effect of altering
1743 the event that follows. For example, here's how to define @kbd{C-c h}
1744 to turn the character that follows into a Hyper character:
1745
1746 @example
1747 @group
1748 (defun hyperify (prompt)
1749 (let ((e (read-event)))
1750 (vector (if (numberp e)
1751 (logior (lsh 1 24) e)
1752 (if (memq 'hyper (event-modifiers e))
1753 e
1754 (add-event-modifier "H-" e))))))
1755
1756 (defun add-event-modifier (string e)
1757 (let ((symbol (if (symbolp e) e (car e))))
1758 (setq symbol (intern (concat string
1759 (symbol-name symbol))))
1760 @end group
1761 @group
1762 (if (symbolp e)
1763 symbol
1764 (cons symbol (cdr e)))))
1765
1766 (define-key function-key-map "\C-ch" 'hyperify)
1767 @end group
1768 @end example
1769
1770 Finally, if you have enabled keyboard character set decoding using
1771 @code{set-keyboard-coding-system}, decoding is done after the
1772 translations listed above. @xref{Terminal I/O Encoding}. In future
1773 Emacs versions, character set decoding may be done before the other
1774 translations.
1775
1776 @node Recording Input
1777 @subsection Recording Input
1778
1779 @defun recent-keys
1780 This function returns a vector containing the last 100 input events from
1781 the keyboard or mouse. All input events are included, whether or not
1782 they were used as parts of key sequences. Thus, you always get the last
1783 100 input events, not counting events generated by keyboard macros.
1784 (These are excluded because they are less interesting for debugging; it
1785 should be enough to see the events that invoked the macros.)
1786
1787 A call to @code{clear-this-command-keys} (@pxref{Command Loop Info})
1788 causes this function to return an empty vector immediately afterward.
1789 @end defun
1790
1791 @deffn Command open-dribble-file filename
1792 @cindex dribble file
1793 This function opens a @dfn{dribble file} named @var{filename}. When a
1794 dribble file is open, each input event from the keyboard or mouse (but
1795 not those from keyboard macros) is written in that file. A
1796 non-character event is expressed using its printed representation
1797 surrounded by @samp{<@dots{}>}.
1798
1799 You close the dribble file by calling this function with an argument
1800 of @code{nil}.
1801
1802 This function is normally used to record the input necessary to
1803 trigger an Emacs bug, for the sake of a bug report.
1804
1805 @example
1806 @group
1807 (open-dribble-file "~/dribble")
1808 @result{} nil
1809 @end group
1810 @end example
1811 @end deffn
1812
1813 See also the @code{open-termscript} function (@pxref{Terminal Output}).
1814
1815 @node Terminal Output
1816 @section Terminal Output
1817 @cindex terminal output
1818
1819 The terminal output functions send output to a text terminal, or keep
1820 track of output sent to the terminal. The variable @code{baud-rate}
1821 tells you what Emacs thinks is the output speed of the terminal.
1822
1823 @defvar baud-rate
1824 This variable's value is the output speed of the terminal, as far as
1825 Emacs knows. Setting this variable does not change the speed of actual
1826 data transmission, but the value is used for calculations such as
1827 padding. It also affects decisions about whether to scroll part of the
1828 screen or repaint---even when using a window system. (We designed it
1829 this way despite the fact that a window system has no true ``output
1830 speed'', to give you a way to tune these decisions.)
1831
1832 The value is measured in baud.
1833 @end defvar
1834
1835 If you are running across a network, and different parts of the
1836 network work at different baud rates, the value returned by Emacs may be
1837 different from the value used by your local terminal. Some network
1838 protocols communicate the local terminal speed to the remote machine, so
1839 that Emacs and other programs can get the proper value, but others do
1840 not. If Emacs has the wrong value, it makes decisions that are less
1841 than optimal. To fix the problem, set @code{baud-rate}.
1842
1843 @defun baud-rate
1844 This obsolete function returns the value of the variable
1845 @code{baud-rate}.
1846 @end defun
1847
1848 @defun send-string-to-terminal string
1849 This function sends @var{string} to the terminal without alteration.
1850 Control characters in @var{string} have terminal-dependent effects.
1851 This function operates only on text terminals.
1852
1853 One use of this function is to define function keys on terminals that
1854 have downloadable function key definitions. For example, this is how (on
1855 certain terminals) to define function key 4 to move forward four
1856 characters (by transmitting the characters @kbd{C-u C-f} to the
1857 computer):
1858
1859 @example
1860 @group
1861 (send-string-to-terminal "\eF4\^U\^F")
1862 @result{} nil
1863 @end group
1864 @end example
1865 @end defun
1866
1867 @deffn Command open-termscript filename
1868 @cindex termscript file
1869 This function is used to open a @dfn{termscript file} that will record
1870 all the characters sent by Emacs to the terminal. It returns
1871 @code{nil}. Termscript files are useful for investigating problems
1872 where Emacs garbles the screen, problems that are due to incorrect
1873 Termcap entries or to undesirable settings of terminal options more
1874 often than to actual Emacs bugs. Once you are certain which characters
1875 were actually output, you can determine reliably whether they correspond
1876 to the Termcap specifications in use.
1877
1878 You close the termscript file by calling this function with an
1879 argument of @code{nil}.
1880
1881 See also @code{open-dribble-file} in @ref{Recording Input}.
1882
1883 @example
1884 @group
1885 (open-termscript "../junk/termscript")
1886 @result{} nil
1887 @end group
1888 @end example
1889 @end deffn
1890
1891 @node Sound Output
1892 @section Sound Output
1893 @cindex sound
1894
1895 To play sound using Emacs, use the function @code{play-sound}. Only
1896 certain systems are supported; if you call @code{play-sound} on a system
1897 which cannot really do the job, it gives an error. Emacs version 20 and
1898 earlier did not support sound at all.
1899
1900 The sound must be stored as a file in RIFF-WAVE format (@samp{.wav})
1901 or Sun Audio format (@samp{.au}).
1902
1903 @tindex play-sound
1904 @defun play-sound sound
1905 This function plays a specified sound. The argument, @var{sound}, has
1906 the form @code{(sound @var{properties}...)}, where the @var{properties}
1907 consist of alternating keywords (particular symbols recognized
1908 specially) and values corresponding to them.
1909
1910 Here is a table of the keywords that are currently meaningful in
1911 @var{sound}, and their meanings:
1912
1913 @table @code
1914 @item :file @var{file}
1915 This specifies the file containing the sound to play.
1916 If the file name is not absolute, it is expanded against
1917 the directory @code{data-directory}.
1918
1919 @item :data @var{data}
1920 This specifies the sound to play without need to refer to a file. The
1921 value, @var{data}, should be a string containing the same bytes as a
1922 sound file. We recommend using a unibyte string.
1923
1924 @item :volume @var{volume}
1925 This specifies how loud to play the sound. It should be a number in the
1926 range of 0 to 1. The default is to use whatever volume has been
1927 specified before.
1928
1929 @item :device @var{device}
1930 This specifies the system device on which to play the sound, as a
1931 string. The default device is system-dependent.
1932 @end table
1933
1934 Before actually playing the sound, @code{play-sound}
1935 calls the functions in the list @code{play-sound-functions}.
1936 Each function is called with one argument, @var{sound}.
1937 @end defun
1938
1939 @defun play-sound-file file &optional volume device
1940 @tindex play-sound-file
1941 This function is an alternative interface to playing a sound @var{file}
1942 specifying an optional @var{volume} and @var{device}.
1943 @end defun
1944
1945 @tindex play-sound-functions
1946 @defvar play-sound-functions
1947 A list of functions to be called before playing a sound. Each function
1948 is called with one argument, a property list that describes the sound.
1949 @end defvar
1950
1951 @node X11 Keysyms
1952 @section Operating on X11 Keysyms
1953
1954 To define system-specific X11 keysyms, set the variable
1955 @code{system-key-alist}.
1956
1957 @defvar system-key-alist
1958 This variable's value should be an alist with one element for each
1959 system-specific keysym. Each element has the form @code{(@var{code}
1960 . @var{symbol})}, where @var{code} is the numeric keysym code (not
1961 including the ``vendor specific'' bit,
1962 @ifnottex
1963 -2**28),
1964 @end ifnottex
1965 @tex
1966 $-2^{28}$),
1967 @end tex
1968 and @var{symbol} is the name for the function key.
1969
1970 For example @code{(168 . mute-acute)} defines a system-specific key (used
1971 by HP X servers) whose numeric code is
1972 @ifnottex
1973 -2**28
1974 @end ifnottex
1975 @tex
1976 $-2^{28}$
1977 @end tex
1978 + 168.
1979
1980 It is not crucial to exclude from the alist the keysyms of other X
1981 servers; those do no harm, as long as they don't conflict with the ones
1982 used by the X server actually in use.
1983
1984 The variable is always local to the current terminal, and cannot be
1985 buffer-local. @xref{Multiple Displays}.
1986 @end defvar
1987
1988 You can specify which keysyms Emacs should use for the Meta, Alt, Hyper, and Super modifiers by setting these variables:
1989
1990 @defvar x-alt-keysym
1991 @defvarx x-meta-keysym
1992 @defvarx x-hyper-keysym
1993 @defvarx x-super-keysym
1994 The name of the keysym that should stand for the Alt modifier
1995 (respectively, for Meta, Hyper, and Super). For example, here is
1996 how to swap the Meta and Alt modifiers within Emacs:
1997 @lisp
1998 (setq x-alt-keysym 'meta)
1999 (setq x-meta-keysym 'alt)
2000 @end lisp
2001 @end defvar
2002
2003 @node Batch Mode
2004 @section Batch Mode
2005 @cindex batch mode
2006 @cindex noninteractive use
2007
2008 The command-line option @samp{-batch} causes Emacs to run
2009 noninteractively. In this mode, Emacs does not read commands from the
2010 terminal, it does not alter the terminal modes, and it does not expect
2011 to be outputting to an erasable screen. The idea is that you specify
2012 Lisp programs to run; when they are finished, Emacs should exit. The
2013 way to specify the programs to run is with @samp{-l @var{file}}, which
2014 loads the library named @var{file}, or @samp{-f @var{function}}, which
2015 calls @var{function} with no arguments, or @samp{--eval @var{form}}.
2016
2017 Any Lisp program output that would normally go to the echo area,
2018 either using @code{message}, or using @code{prin1}, etc., with @code{t}
2019 as the stream, goes instead to Emacs's standard error descriptor when
2020 in batch mode. Similarly, input that would normally come from the
2021 minibuffer is read from the standard input descriptor.
2022 Thus, Emacs behaves much like a noninteractive
2023 application program. (The echo area output that Emacs itself normally
2024 generates, such as command echoing, is suppressed entirely.)
2025
2026 @defvar noninteractive
2027 This variable is non-@code{nil} when Emacs is running in batch mode.
2028 @end defvar
2029
2030 @node Session Management
2031 @section Session Management
2032 @cindex session manager
2033
2034 Emacs supports the X Session Management Protocol for suspension and
2035 restart of applications. In the X Window System, a program called the
2036 @dfn{session manager} has the responsibility to keep track of the
2037 applications that are running. During shutdown, the session manager
2038 asks applications to save their state, and delays the actual shutdown
2039 until they respond. An application can also cancel the shutdown.
2040
2041 When the session manager restarts a suspended session, it directs
2042 these applications to individually reload their saved state. It does
2043 this by specifying a special command-line argument that says what
2044 saved session to restore. For Emacs, this argument is @samp{--smid
2045 @var{session}}.
2046
2047 @defvar emacs-save-session-functions
2048 @tindex emacs-save-session-functions
2049 Emacs supports saving state by using a hook called
2050 @code{emacs-save-session-functions}. Each function in this hook is
2051 called when the session manager tells Emacs that the window system is
2052 shutting down. The functions are called with no arguments and with the
2053 current buffer set to a temporary buffer. Each function can use
2054 @code{insert} to add Lisp code to this buffer. At the end, Emacs
2055 saves the buffer in a file that a subsequent Emacs invocation will
2056 load in order to restart the saved session.
2057
2058 If a function in @code{emacs-save-session-functions} returns
2059 non-@code{nil}, Emacs tells the session manager to cancel the
2060 shutdown.
2061 @end defvar
2062
2063 Here is an example that just inserts some text into @samp{*scratch*} when
2064 Emacs is restarted by the session manager.
2065
2066 @example
2067 @group
2068 (add-hook 'emacs-save-session-functions 'save-yourself-test)
2069 @end group
2070
2071 @group
2072 (defun save-yourself-test ()
2073 (insert "(save-excursion
2074 (switch-to-buffer \"*scratch*\")
2075 (insert \"I am restored\"))")
2076 nil)
2077 @end group
2078 @end example
2079
2080 @ignore
2081 arch-tag: 8378814a-30d7-467c-9615-74a80b9988a7
2082 @end ignore