Mercurial > emacs
view src/terminal.c @ 94414:d86cb59eea9f
2008-04-27 Carsten Dominik <dominik@science.uva.nl>
* org/org.el (org-html-level-start): Always have id's in HTML
(org-export-as-html): Use `org-link-protocols' to
retrieve the export form of the link.
(org-add-link-type): Final parameter renamed from PUBLISH. Better
documentation of how it is to be used. Avoid double entries for
the same link type.
(org-add-link-props): New function.
(org-modules-loaded): New variable.
(org-load-modules-maybe, org-set-modules): New function.
(org-modules): New option.
(org-mode, org-cycle, orgstruct-mode, org-run-like-in-org-mode)
(orgtbl-mode, org-store-link, org-insert-link-global)
(org-open-at-point): Call `org-load-modules-maybe'.
(org-search-view): Add more text properties.
(org-agenda-schedule, org-agenda-deadline): Allow also in
search-type agendas.
(org-search-view): Order of arguments has been changed.
Interpret prefix-arg as TODO-ONLY.
(org-agenda, org-run-agenda-series, org-agenda-manipulate-query):
Take new argument order of `org-search-view' into account.
(org-todo-only): New variable.
(org-search-syntax-table): New variable and function.
(org-search-view): Do the search with the special syntax table.
(define-obsolete-function-alias): Make work with XEmacs.
(org-add-planning-info): Use old date as default when modifying an
existing deadline or scheduled item.
(org-agenda-compute-time-span): Make argument N optional.
(org-agenda-format-date-aligned): Require `cal-iso'.
(org-agenda-list): Include week into into agenda heading, don't
list it at each date (only on Mondays).
(org-read-date-analyze): Define local variable `iso-date'.
(org-agenda-format-date-aligned): Remove dependency on
`calendar-time-from-absolute'.
(org-remember-apply-template, org-go-to-remember-target):
Interpret filenames relative to `org-directory'.
(org-complete): Silently fail when trying to complete
keywords that don't have a default value.
(org-get-current-options): Added a #+DATE: option.
(org-additional-option-like-keywords): Removed "DATE:" from the
list of additional keywords.
(org-export-as-html): Removed (current-time) as unnecessary second
argument of `format-time-string'.
(org-clock-find-position): Handle special case at end of
buffer.
(org-agenda-day-view): New argument DAY-OF-YEAR, pass it on to
`org-agenda-change-time-span'.
(org-agenda-week-view): New argument ISO-WEEK, pass it on to
`org-agenda-change-time-span'.
(org-agenda-month-view): New argument MONTH, pass it on to
`org-agenda-change-time-span'.
(org-agenda-year-view): New argument YEAR, pass it on to
`org-agenda-change-time-span'.
(org-agenda-change-time-span): New optional argument N, pass it on
to `org-agenda-compute-time-span'.
(org-agenda-compute-time-span): New argument N, interpret it by
changing the starting day.
(org-small-year-to-year): New function.
(org-scheduled-past-days): Respect
`org-scheduled-past-days'.
(org-auto-repeat-maybe): Make sure that repeating
dates are pushed into the future, and that the shift is at least
one interval, never 0.
(org-update-checkbox-count): Fix bug with checkbox
counting.
(org-add-note): New command.
(org-add-log-setup): Renamed from `org-add-log-maybe'.
(org-log-note-headings): New entry for plain notes (i.e. notes not
related to state changes or clocking).
(org-get-org-file): Check for availability of
`remember-data-file'.
(org-cached-entry-get): Allow a regexp value for
`org-use-property-inheritance'.
(org-use-property-inheritance): Allow regexp value. Fix bug in
customization type.
(org-use-tag-inheritance): Allow a list and a regexp value for
this variable.
(org-scan-tags, org-get-tags-at): Implement selective tag
inheritance.
(org-entry-get): Respect value `selective' for the INHERIT
argument.
(org-tag-inherit-p, org-property-inherit-p): New functions.
(org-agenda-format-date-aligned): Allow 10 characters for
weekday, to acomodate German locale.
(org-add-archive-files): New function.
(org-agenda-files): New argument `ext', to
get archive files as well.
(org-tbl-menu): Protect the use of variables that
are only available when org-table.el gets loaded.
(org-read-agenda-file-list): Error if `org-agenda-files' is a
single directory.
(org-open-file): Allow a batch process to trigger
waiting after executing a system command.
(org-store-link): Link to headline when there is not
target and no region in an org-mode buffer when creating a link.
(org-link-types-re): New variable.
(org-make-link-regexps): Compute `org-link-types-re'.
(org-make-link-description-function): New option.
(org-agenda-date, org-agenda-date-weekend): New faces.
(org-archive-sibling-heading): New option.
(org-archive-to-archive-sibling): New function.
(org-iswitchb): New command.
(org-buffer-list): New function.
(org-agenda-columns): Also try the #+COLUMNS line in
the buffer associated with the entry at point (or with the first
entry in the agenda view).
(org-modules): Add entry for org-bibtex.el.
(org-completion-fallback-command): Moved into `org-completion'
group.
(org-clock-heading-function): Moved to `org-progress' group.
(org-auto-repeat-maybe): Make sure that a note can
be enforces if `org-log-repeat' is `note'.
(org-modules): Allow additional symbols for external
packages.
(org-ctrl-c-ctrl-c): Allow for `org-clock-overlays' to be
undefined.
(org-clock-goto): Hide drawers after showing an
entry with `org-clock-goto.'
(org-shiftup, org-shiftdown, org-shiftright, org-shiftleft): Try
also a clocktable block shift.
(org-clocktable-try-shift): New function.
(org-columns-hscoll-title): New function.
(org-columns-previous-hscroll): New variable.
(org-columns-full-header-line-format): New variable.
(org-columns-display-here-title, org-columns-remove-overlays):
Install `org-columns-hscoll-title' in post-command-hook.
* org/org.el: Split into many small files.
* org/org-agenda.el: New file, split off from org.el.
* org/org-archive.el: New file, split off from org.el.
* org/org-bbdb.el: New file.
* org/org-bibtex.el: New file, split off from org.el.
* org/org-clock.el: New file, split off from org.el.
* org/org-colview.el: New file, split off from org.el.
* org/org-compat.el: New file, split off from org.el.
* org/org-exp.el: New file, split off from org.el.
* org/org-faces.el: New file, split off from org.el.
* org/org-gnus.el: New file, split off from org.el.
* org/org-info.el: New file, split off from org.el.
* org/org-infojs.el: New file.
* org/org-irc.el: New file.
* org/org-macs.el: New file, split off from org.el.
* org/org-mew.el: New file.
* org/org-mhe.el: New file, split off from org.el.
* org/org-publish.el: New file, split off from org.el.
* org/org-remember.el: New file, split off from org.el.
* org/org-rmail.el: New file, split off from org.el.
* org/org-table.el: New file, split off from org.el.
* org/org-vm.el: New file, split off from org.el.
* org/org-wl.el: New file, split off from org.el.
2008-04-27 Jason Riedy <jason@acm.org>
* lisp/org-table.el (orgtbl-to-generic): Add a :remove-nil-lines
parameter that supresses lines that evaluate to NIL.
(orgtbl-get-fmt): New inline function for
picking apart formats that may be lists.
(orgtbl-apply-fmt): New inline function for applying formats that
may be functions.
(orgtbl-eval-str): New inline function for strings that may be
functions.
(orgtbl-format-line, orgtbl-to-generic): Use and document.
(orgtbl-to-latex, orgtbl-to-texinfo): Document.
(*orgtbl-llfmt*, *orgtbl-llstart*)
(*orgtbl-llend*): Dynamic variables for last-line formatting.
(orgtbl-format-section): Shift formatting to support detecting the
last line and formatting it specially.
(orgtbl-to-generic): Document :ll* formats. Set to the non-ll
formats unless overridden.
(orgtbl-to-latex): Suggest using :llend to suppress the final \\.
(*orgtbl-table*, *orgtbl-rtn*): Dynamically
bound variables to hold the input collection of lines and output
formatted text.
(*orgtbl-hline*, *orgtbl-sep*, *orgtbl-fmt*, *orgtbl-efmt*,
(*orgtbl-lfmt*, *orgtbl-lstart*, *orgtbl-lend*): Dynamically bound
format parameters.
(orgtbl-format-line): New function encapsulating formatting for a
single line.
(orgtbl-format-section): Similar for each section. Rebinding the
dynamic vars customizes the formatting for each section.
(orgtbl-to-generic): Use orgtbl-format-line and
orgtbl-format-section.
(org-get-param): Now unused, so delete.
(orgtbl-gather-send-defs): New function to
gather all the SEND definitions before a table.
(orgtbl-send-replace-tbl): New function to find the RECEIVE
corresponding to the current name.
(orgtbl-send-table): Use the previous two functions and implement
multiple destinations for each table.
* doc/org.texi (A LaTeX example): Note that fmt may be a
one-argument function, and efmt may be a two-argument function.
(Radio tables): Document multiple destinations.
2008-04-27 Carsten Dominik <dominik@science.uva.nl>
* org/org-agenda.el (org-add-to-diary-list): New function.
(org-prefix-has-effort): New variable.
(org-sort-agenda-noeffort-is-high): New option.
(org-agenda-columns-show-summaries)
(org-agenda-columns-compute-summary-properties): New options.
(org-format-agenda-item): Compute the duration of the item.
(org-agenda-weekend-days): New variable.
(org-agenda-list, org-timeline): Use the proper faces for dates in
the agenda and timeline buffers.
(org-agenda-archive-to-archive-sibling): New command.
(org-agenda-start-with-clockreport-mode): New option.
(org-agenda-clockreport-parameter-plist): New option.
(org-agenda-clocktable-mode): New variable.
(org-agenda-deadline-leaders): Allow a function value for the
deadline leader.
(org-agenda-get-deadlines): Deal with new function value.
* lisp/org-clock.el (org-clock): New customization group.
(org-clock-into-drawer, org-clock-out-when-done)
(org-clock-in-switch-to-state, org-clock-heading-function): Moved
into the new group.
(org-clock-out-remove-zero-time-clocks): New option.
(org-clock-out): Use `org-clock-out-remove-zero-time-clocks'.
(org-dblock-write:clocktable): Allow a Lisp form for the scope
parameter.
(org-dblock-write:clocktable): Fixed bug with total time
calculation.
(org-dblock-write:clocktable): Request the unrestricted list of
files.
(org-get-clocktable): New function.
(org-dblock-write:clocktable): Make sure :tstart and :tend can not
only be strings but also integers (an absolute day number) and
lists (m d y).
* org/org-colview.el (org-columns-next-allowed-value)
(org-columns-edit-value): Limit the effort for updatig in the
agenda to recomputing a single file.
(org-columns-compute): Only write property value if it has
changed. This avoids raising the buffer-change-flag
unnecessarily.
(org-agenda-colview-summarize)
(org-agenda-colview-compute): New functions.
(org-agenda-columns): Call `org-agenda-colview-summarize'.
* org/org-exp.el (org-export-run-in-background): New option.
(org-export-icalendar): Allow a batch process to trigger waiting
after executing a system command.
(org-export-preprocess-string): Renamed-from
`org-cleaned-string-for-export'.
(org-export-html-style): Made target class look like normal text.
(org-export-as-html): Make use of the better proprocessing in
`org-cleaned-string-for-export'.
(org-cleaned-string-for-export): Better treatment of heuristic
targets, many more internal links will now work in HTML export.
(org-get-current-options): Incorporate LINK_UP, LINK_HOME, and
INFOJS.
(org-export-inbuffer-options-extra): New variable.
(org-export-options-filters): New hook.
(org-infile-export-plist): Find also the settings keywords in
`org-export-inbuffer-options-extra'.
(org-infile-export-plist): Allow multiple #+OPTIONS lines and
multiple #+INFOJS_OPT lines.
(org-export-html-handle-js-options): New function.
(org-export-html-infojs-setup): New option.
(org-export-as-html): Call `org-export-html-handle-js-options'.
Add autoload to all entry points.
(org-skip-comments): Function removed.
* org/org-table.el (org-table-make-reference): Extra parenthesis
around single fields, to make sure that algebraic formulas get
correctly interpreted by calc.
(org-table-current-column): No longer interactive.
* org/org-export-latex.el (org-export-latex-preprocess): Renamed
from `org-export-latex-cleaned-string'.
2008-04-27 Bastien Guerry <bzg@altern.org>
* org/org-publish.el (org-publish-get-base-files-1): New function.
(org-publish-get-base-files): Use it.
(org-publish-temp-files): New variable.
Don't require 'dired-aux anymore.
(org-publish-initial-buffer): New variable.
(org-publish-org-to, org-publish): Use it.
(org-publish-get-base-files-1): Bug fix: get
the proper list of files when recursing thru a directory.
(org-publish-get-base-files): Use the :exclude property to skip
both files and directories.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Sun, 27 Apr 2008 18:33:39 +0000 |
parents | ed10c3092847 |
children | 8971ddf55736 |
line wrap: on
line source
/* Functions related to terminal devices. Copyright (C) 2005, 2006, 2007, 2008 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #include <config.h> #include <stdio.h> #include "lisp.h" #include "frame.h" #include "termchar.h" #include "termhooks.h" #include "charset.h" #include "coding.h" #include "keyboard.h" /* Chain of all terminals currently in use. */ struct terminal *terminal_list; /* The first unallocated terminal id. */ static int next_terminal_id; /* The initial terminal device, created by initial_term_init. */ struct terminal *initial_terminal; /* Function to use to ring the bell. */ Lisp_Object Vring_bell_function; static void delete_initial_terminal P_ ((struct terminal *)); void ring_bell (struct frame *f) { if (!NILP (Vring_bell_function)) { Lisp_Object function; /* Temporarily set the global variable to nil so that if we get an error, it stays nil and we don't call it over and over. We don't specbind it, because that would carefully restore the bad value if there's an error and make the loop of errors happen anyway. */ function = Vring_bell_function; Vring_bell_function = Qnil; call0 (function); Vring_bell_function = function; } else if (FRAME_TERMINAL (f)->ring_bell_hook) (*FRAME_TERMINAL (f)->ring_bell_hook) (f); } void update_begin (struct frame *f) { if (FRAME_TERMINAL (f)->update_begin_hook) (*FRAME_TERMINAL (f)->update_begin_hook) (f); } void update_end (struct frame *f) { if (FRAME_TERMINAL (f)->update_end_hook) (*FRAME_TERMINAL (f)->update_end_hook) (f); } /* Specify how many text lines, from the top of the window, should be affected by insert-lines and delete-lines operations. This, and those operations, are used only within an update that is bounded by calls to update_begin and update_end. */ void set_terminal_window (struct frame *f, int size) { if (FRAME_TERMINAL (f)->set_terminal_window_hook) (*FRAME_TERMINAL (f)->set_terminal_window_hook) (f, size); } /* Move cursor to row/column position VPOS/HPOS. HPOS/VPOS are frame-relative coordinates. */ void cursor_to (struct frame *f, int vpos, int hpos) { if (FRAME_TERMINAL (f)->cursor_to_hook) (*FRAME_TERMINAL (f)->cursor_to_hook) (f, vpos, hpos); } /* Similar but don't take any account of the wasted characters. */ void raw_cursor_to (struct frame *f, int row, int col) { if (FRAME_TERMINAL (f)->raw_cursor_to_hook) (*FRAME_TERMINAL (f)->raw_cursor_to_hook) (f, row, col); } /* Erase operations */ /* Clear from cursor to end of frame. */ void clear_to_end (struct frame *f) { if (FRAME_TERMINAL (f)->clear_to_end_hook) (*FRAME_TERMINAL (f)->clear_to_end_hook) (f); } /* Clear entire frame */ void clear_frame (struct frame *f) { if (FRAME_TERMINAL (f)->clear_frame_hook) (*FRAME_TERMINAL (f)->clear_frame_hook) (f); } /* Clear from cursor to end of line. Assume that the line is already clear starting at column first_unused_hpos. Note that the cursor may be moved, on terminals lacking a `ce' string. */ void clear_end_of_line (struct frame *f, int first_unused_hpos) { if (FRAME_TERMINAL (f)->clear_end_of_line_hook) (*FRAME_TERMINAL (f)->clear_end_of_line_hook) (f, first_unused_hpos); } /* Output LEN glyphs starting at STRING at the nominal cursor position. Advance the nominal cursor over the text. */ void write_glyphs (struct frame *f, struct glyph *string, int len) { if (FRAME_TERMINAL (f)->write_glyphs_hook) (*FRAME_TERMINAL (f)->write_glyphs_hook) (f, string, len); } /* Insert LEN glyphs from START at the nominal cursor position. If start is zero, insert blanks instead of a string at start */ void insert_glyphs (struct frame *f, struct glyph *start, int len) { if (len <= 0) return; if (FRAME_TERMINAL (f)->insert_glyphs_hook) (*FRAME_TERMINAL (f)->insert_glyphs_hook) (f, start, len); } /* Delete N glyphs at the nominal cursor position. */ void delete_glyphs (struct frame *f, int n) { if (FRAME_TERMINAL (f)->delete_glyphs_hook) (*FRAME_TERMINAL (f)->delete_glyphs_hook) (f, n); } /* Insert N lines at vpos VPOS. If N is negative, delete -N lines. */ void ins_del_lines (struct frame *f, int vpos, int n) { if (FRAME_TERMINAL (f)->ins_del_lines_hook) (*FRAME_TERMINAL (f)->ins_del_lines_hook) (f, vpos, n); } /* Return the terminal object specified by TERMINAL. TERMINAL may be a terminal id, a frame, or nil for the terminal device of the current frame. If THROW is zero, return NULL for failure, otherwise throw an error. */ struct terminal * get_terminal (Lisp_Object terminal, int throw) { struct terminal *result = NULL; if (NILP (terminal)) terminal = selected_frame; if (TERMINALP (terminal)) result = XTERMINAL (terminal); else if (FRAMEP (terminal)) { result = FRAME_TERMINAL (XFRAME (terminal)); } if (result && !result->name) result = NULL; if (result == NULL && throw) wrong_type_argument (Qterminal_live_p, terminal); return result; } /* Create a new terminal object and add it to the terminal list. */ struct terminal * create_terminal (void) { struct terminal *terminal = allocate_terminal (); terminal->name = NULL; terminal->next_terminal = terminal_list; terminal_list = terminal; terminal->id = next_terminal_id++; terminal->keyboard_coding = (struct coding_system *) xmalloc (sizeof (struct coding_system)); terminal->terminal_coding = (struct coding_system *) xmalloc (sizeof (struct coding_system)); setup_coding_system (Qno_conversion, terminal->keyboard_coding); setup_coding_system (Qundecided, terminal->terminal_coding); terminal->param_alist = Qnil; return terminal; } /* Low-level function to close all frames on a terminal, remove it from the terminal list and free its memory. */ void delete_terminal (struct terminal *terminal) { struct terminal **tp; Lisp_Object tail, frame; /* Protect against recursive calls. Fdelete_frame calls the delete_terminal_hook when we delete our last frame. */ if (!terminal->name) return; xfree (terminal->name); terminal->name = NULL; /* Check for live frames that are still on this terminal. */ FOR_EACH_FRAME (tail, frame) { struct frame *f = XFRAME (frame); if (FRAME_LIVE_P (f) && f->terminal == terminal) { /* Maybe this should pass Qnoelisp rather than Qt? */ Fdelete_frame (frame, Qt); } } for (tp = &terminal_list; *tp != terminal; tp = &(*tp)->next_terminal) if (! *tp) abort (); *tp = terminal->next_terminal; xfree (terminal->keyboard_coding); terminal->keyboard_coding = NULL; xfree (terminal->terminal_coding); terminal->terminal_coding = NULL; #ifdef MULTI_KBOARD if (terminal->kboard && --terminal->kboard->reference_count == 0) { delete_kboard (terminal->kboard); terminal->kboard = NULL; } #endif } Lisp_Object Qrun_hook_with_args; static Lisp_Object Qdelete_terminal_functions; static Lisp_Object Vdelete_terminal_functions; DEFUN ("delete-terminal", Fdelete_terminal, Sdelete_terminal, 0, 2, 0, doc: /* Delete TERMINAL by deleting all frames on it and closing the terminal. TERMINAL may be a terminal id, a frame, or nil (meaning the selected frame's terminal). Normally, you may not delete a display if all other displays are suspended, but if the second argument FORCE is non-nil, you may do so. */) (terminal, force) Lisp_Object terminal, force; { struct terminal *t = get_terminal (terminal, 0); if (!t) return Qnil; if (NILP (force)) { struct terminal *p = terminal_list; while (p && (p == t || !TERMINAL_ACTIVE_P (p))) p = p->next_terminal; if (!p) error ("Attempt to delete the sole active display terminal"); } if (NILP (Vrun_hooks)) ; else if (EQ (force, Qnoelisp)) pending_funcalls = Fcons (list3 (Qrun_hook_with_args, Qdelete_terminal_functions, terminal), pending_funcalls); else safe_call2 (Qrun_hook_with_args, Qdelete_terminal_functions, terminal); if (t->delete_terminal_hook) (*t->delete_terminal_hook) (t); else delete_terminal (t); return Qnil; } DEFUN ("frame-terminal", Fframe_terminal, Sframe_terminal, 0, 1, 0, doc: /* Return the terminal that FRAME is displayed on. If FRAME is nil, the selected frame is used. The terminal device is represented by its integer identifier. */) (frame) Lisp_Object frame; { struct terminal *t; if (NILP (frame)) frame = selected_frame; CHECK_LIVE_FRAME (frame); t = FRAME_TERMINAL (XFRAME (frame)); if (!t) return Qnil; else { Lisp_Object terminal; XSETTERMINAL (terminal, t); return terminal; } } DEFUN ("terminal-live-p", Fterminal_live_p, Sterminal_live_p, 1, 1, 0, doc: /* Return non-nil if OBJECT is a terminal which has not been deleted. Value is nil if OBJECT is not a live display terminal. If object is a live display terminal, the return value indicates what sort of output terminal it uses. See the documentation of `framep' for possible return values. */) (object) Lisp_Object object; { struct terminal *t; t = get_terminal (object, 0); if (!t) return Qnil; switch (t->type) { case output_initial: /* The initial frame is like a termcap frame. */ case output_termcap: return Qt; case output_x_window: return Qx; case output_w32: return Qw32; case output_msdos_raw: return Qpc; case output_mac: return Qmac; default: abort (); } } DEFUN ("terminal-list", Fterminal_list, Sterminal_list, 0, 0, 0, doc: /* Return a list of all terminal devices. */) () { Lisp_Object terminal, terminals = Qnil; struct terminal *t; for (t = terminal_list; t; t = t->next_terminal) { XSETTERMINAL (terminal, t); terminals = Fcons (terminal, terminals); } return terminals; } DEFUN ("terminal-name", Fterminal_name, Sterminal_name, 0, 1, 0, doc: /* Return the name of the terminal device TERMINAL. It is not guaranteed that the returned value is unique among opened devices. TERMINAL may be a terminal id, a frame, or nil (meaning the selected frame's terminal). */) (terminal) Lisp_Object terminal; { struct terminal *t = TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1); return t->name ? build_string (t->name) : Qnil; } /* Return the value of terminal parameter PARAM in terminal T. */ Lisp_Object get_terminal_param (t, param) struct terminal *t; Lisp_Object param; { Lisp_Object tem = Fassq (param, t->param_alist); if (EQ (tem, Qnil)) return tem; return Fcdr (tem); } /* Set the value of terminal parameter PARAMETER in terminal D to VALUE. Return the previous value. */ Lisp_Object store_terminal_param (t, parameter, value) struct terminal *t; Lisp_Object parameter; Lisp_Object value; { Lisp_Object old_alist_elt = Fassq (parameter, t->param_alist); if (EQ (old_alist_elt, Qnil)) { t->param_alist = Fcons (Fcons (parameter, value), t->param_alist); return Qnil; } else { Lisp_Object result = Fcdr (old_alist_elt); Fsetcdr (old_alist_elt, value); return result; } } DEFUN ("terminal-parameters", Fterminal_parameters, Sterminal_parameters, 0, 1, 0, doc: /* Return the parameter-alist of terminal TERMINAL. The value is a list of elements of the form (PARM . VALUE), where PARM is a symbol. TERMINAL can be a terminal id, a frame or nil (meaning the selected frame's terminal). */) (terminal) Lisp_Object terminal; { struct terminal *t = TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1); return Fcopy_alist (t->param_alist); } DEFUN ("terminal-parameter", Fterminal_parameter, Sterminal_parameter, 2, 2, 0, doc: /* Return TERMINAL's value for parameter PARAMETER. TERMINAL can be a terminal id, a frame or nil (meaning the selected frame's terminal). */) (terminal, parameter) Lisp_Object terminal; Lisp_Object parameter; { Lisp_Object value; struct terminal *t = TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1); CHECK_SYMBOL (parameter); value = Fcdr (Fassq (parameter, t->param_alist)); return value; } DEFUN ("set-terminal-parameter", Fset_terminal_parameter, Sset_terminal_parameter, 3, 3, 0, doc: /* Set TERMINAL's value for parameter PARAMETER to VALUE. Return the previous value of PARAMETER. TERMINAL can be a terminal id, a frame or nil (meaning the selected frame's terminal). */) (terminal, parameter, value) Lisp_Object terminal; Lisp_Object parameter; Lisp_Object value; { struct terminal *t = TERMINALP (terminal) ? XTERMINAL (terminal) : get_terminal (terminal, 1); return store_terminal_param (t, parameter, value); } /* Create the bootstrap display terminal for the initial frame. Returns a terminal of type output_initial. */ struct terminal * init_initial_terminal (void) { if (initialized || terminal_list || tty_list) abort (); initial_terminal = create_terminal (); initial_terminal->type = output_initial; initial_terminal->name = xstrdup ("initial_terminal"); #ifdef MULTI_KBOARD initial_terminal->kboard = initial_kboard; #endif initial_terminal->delete_terminal_hook = &delete_initial_terminal; /* All other hooks are NULL. */ return initial_terminal; } /* Deletes the bootstrap terminal device. Called through delete_terminal_hook. */ static void delete_initial_terminal (struct terminal *terminal) { if (terminal != initial_terminal) abort (); delete_terminal (terminal); initial_terminal = NULL; } void syms_of_terminal () { DEFVAR_LISP ("ring-bell-function", &Vring_bell_function, doc: /* Non-nil means call this function to ring the bell. The function should accept no arguments. */); Vring_bell_function = Qnil; DEFVAR_LISP ("delete-terminal-functions", &Vdelete_terminal_functions, doc: /* Special hook run when a terminal is deleted. Each function is called with argument, the terminal. This may be called just before actually deleting the terminal, or some time later. */); Vdelete_terminal_functions = Qnil; Qdelete_terminal_functions = intern ("delete-terminal-functions"); staticpro (&Qdelete_terminal_functions); Qrun_hook_with_args = intern ("run-hook-with-args"); staticpro (&Qrun_hook_with_args); defsubr (&Sdelete_terminal); defsubr (&Sframe_terminal); defsubr (&Sterminal_live_p); defsubr (&Sterminal_list); defsubr (&Sterminal_name); defsubr (&Sterminal_parameters); defsubr (&Sterminal_parameter); defsubr (&Sset_terminal_parameter); Fprovide (intern ("multi-tty"), Qnil); } /* arch-tag: e9af6f27-b483-47dc-bb1a-730c1c5cab03 (do not change this comment) */