Commit 7ee72033 authored by Miles Bader's avatar Miles Bader

Change doc-string comments to `new style' [w/`doc:' keyword].

parent 015a8883
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -25,9 +25,9 @@ Boston, MA 02111-1307, USA. */
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include "termchar.h"
#include "termopts.h"
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "charset.h"
#include "coding.h"
......@@ -2176,8 +2176,8 @@ turn_off_face (f, face_id)
DEFUN ("tty-display-color-p", Ftty_display_color_p, Stty_display_color_p,
0, 1, 0,
/* Return non-nil if TTY can display colors on FRAME. */
(frame))
doc: /* Return non-nil if TTY can display colors on FRAME. */)
(frame)
Lisp_Object frame;
{
return TN_max_colors > 0 ? Qt : Qnil;
......@@ -2608,8 +2608,8 @@ fatal (str, arg1, arg2)
void
syms_of_term ()
{
DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo
/* Non-nil means the system uses terminfo rather than termcap.
DEFVAR_BOOL ("system-uses-terminfo", &system_uses_terminfo,
doc: /* Non-nil means the system uses terminfo rather than termcap.
This variable can be used by terminal emulator packages. */);
#ifdef TERMINFO
system_uses_terminfo = 1;
......@@ -2617,8 +2617,8 @@ This variable can be used by terminal emulator packages. */);
system_uses_terminfo = 0;
#endif
DEFVAR_LISP ("ring-bell-function", &Vring_bell_function
/* Non-nil means call this function to ring the bell.
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;
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -37,7 +37,7 @@ Boston, MA 02111-1307, USA. */
#include <signal.h>
#include <stdio.h>
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "termhooks.h"
#include "keyboard.h"
......@@ -656,7 +656,7 @@ list_of_items (pane)
}
DEFUN ("x-popup-menu", Fx_popup_menu, Sx_popup_menu, 2, 2, 0,
/* Pop up a deck-of-cards menu and return user's selection.
doc: /* Pop up a deck-of-cards menu and return user's selection.
POSITION is a position specification. This is either a mouse button event
or a list ((XOFFSET YOFFSET) WINDOW)
where XOFFSET and YOFFSET are positions in pixels from the top left
......@@ -688,8 +688,8 @@ in the menu.
With this form of menu, the return value is VALUE from the chosen item.
If POSITION is nil, don't display the menu at all, just precalculate the
cached information about equivalent key sequences. */
(position, menu))
cached information about equivalent key sequences. */)
(position, menu)
Lisp_Object position, menu;
{
Lisp_Object keymap, tem;
......@@ -881,7 +881,7 @@ cached information about equivalent key sequences. */
#ifdef HAVE_MENUS
DEFUN ("x-popup-dialog", Fx_popup_dialog, Sx_popup_dialog, 2, 2, 0,
/* Pop up a dialog box and return user's selection.
doc: /* Pop up a dialog box and return user's selection.
POSITION specifies which frame to use.
This is normally a mouse button event or a window or frame.
If POSITION is t, it means to use the frame the mouse is on.
......@@ -895,8 +895,8 @@ The return value is VALUE from the chosen item.
An ITEM may also be just a string--that makes a nonselectable item.
An ITEM may also be nil--that means to put all preceding items
on the left of the dialog box and all following items on the right.
\(By default, approximately half appear on each side.) */
(position, contents))
\(By default, approximately half appear on each side.) */)
(position, contents)
Lisp_Object position, contents;
{
struct frame * f = NULL;
......@@ -2849,8 +2849,8 @@ syms_of_xmenu ()
Qdebug_on_next_call = intern ("debug-on-next-call");
staticpro (&Qdebug_on_next_call);
DEFVAR_LISP ("menu-updating-frame", &Vmenu_updating_frame
/* Frame for which we are updating a menu.
DEFVAR_LISP ("menu-updating-frame", &Vmenu_updating_frame,
doc: /* Frame for which we are updating a menu.
The enable predicate for a menu command should check this variable. */);
Vmenu_updating_frame = Qnil;
......
......@@ -32,7 +32,6 @@ Boston, MA 02111-1307, USA. */
#ifdef HAVE_X_WINDOWS
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "blockinput.h"
......@@ -14799,22 +14798,22 @@ syms_of_xterm ()
staticpro (&previous_help_echo);
help_echo_pos = -1;
DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p
/* *Non-nil means draw block cursor as wide as the glyph under it.
DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p,
doc: /* *Non-nil means draw block cursor as wide as the glyph under it.
For example, if a block cursor is over a tab, it will be drawn as
wide as that tab on the display. */);
x_stretch_cursor_p = 0;
DEFVAR_BOOL ("x-use-underline-position-properties",
&x_use_underline_position_properties
/* *Non-nil means make use of UNDERLINE_POSITION font properties.
&x_use_underline_position_properties,
doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
Nil means ignore them. If you encounter fonts with bogus
UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
to 4.1, set this to nil. */);
x_use_underline_position_properties = 1;
DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars
/* What X toolkit scroll bars Emacs uses.
DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
doc: /* What X toolkit scroll bars Emacs uses.
A value of nil means Emacs doesn't use X toolkit scroll bars.
Otherwise, value is a symbol describing the X toolkit. */);
#ifdef USE_TOOLKIT_SCROLL_BARS
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment