Function: eshell-get-comparison-modifier-argument

eshell-get-comparison-modifier-argument is a byte-compiled function defined in em-pred.el.gz.

Signature

(eshell-get-comparison-modifier-argument &optional FUNCTIONS)

Documentation

Starting at point, get the comparison modifier argument, if any.

These are the -/+ characters, corresponding to < and >, respectively. If no comparison modifier is at point, return =.

FUNCTIONS, if non-nil, is a list of comparison functions, specified as (LESS-THAN GREATER-THAN EQUAL-TO).

Source Code

;; Defined in /usr/src/emacs/lisp/eshell/em-pred.el.gz
(defun eshell-get-comparison-modifier-argument (&optional functions)
  "Starting at point, get the comparison modifier argument, if any.
These are the -/+ characters, corresponding to `<' and `>',
respectively.  If no comparison modifier is at point, return `='.

FUNCTIONS, if non-nil, is a list of comparison functions,
specified as (LESS-THAN GREATER-THAN EQUAL-TO)."
  (let ((functions (or functions (list #'< #'> #'=))))
    (if (memq (char-after) '(?- ?+))
        (prog1
            (if (eq (char-after) ?-) (nth 0 functions) (nth 1 functions))
          (forward-char))
      (nth 2 functions))))