Function: hif-split-signed-token

hif-split-signed-token is a byte-compiled function defined in hideif.el.gz.

Signature

(hif-split-signed-token)

Documentation

Split current numeric token into two (hif-plus/minus num).

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/hideif.el.gz
(defun hif-split-signed-token ()
  "Split current numeric token into two (hif-plus/minus num)."
  (let* (val ch0 head)
    (when (and (stringp hif-token)
               (setq val (get-text-property 0 'hif-value hif-token))
               ;; explicitly signed?
               (memq (setq ch0 (aref hif-token 0)) '(?+ ?-)))
      (if (eq ch0 ?+)
          (setq head 'hif-plus)
        (setq head 'hif-minus
              val (- val)))
      (setq hif-token (substring hif-token 1))
      (add-text-properties 0 1 (list 'hif-value val) hif-token)
      (push hif-token hif-token-list)
      (setq hif-token head))))