Function: position-symbol

position-symbol is a function defined in data.c.

Signature

(position-symbol SYM POS)

Documentation

Make a new symbol with position.

SYM is a symbol, with or without position, the symbol to position. POS, the position, is either a nonnegative fixnum, or a symbol with position from which the position will be taken. Ignore symbols-with-pos-enabled.

View in manual

Source Code

// Defined in /usr/src/emacs/src/data.c
{
  Lisp_Object bare = Fbare_symbol (sym);
  Lisp_Object position;

  if (FIXNUMP (pos))
    position = pos;
  else if (SYMBOL_WITH_POS_P (pos))
    position = XSYMBOL_WITH_POS_POS (pos);
  else
    wrong_type_argument (Qfixnum_or_symbol_with_pos_p, pos);

  return build_symbol_with_pos (bare, position);
}