Function: idlwave-custom-ltgtr-surround

idlwave-custom-ltgtr-surround is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-custom-ltgtr-surround GTR &optional IS-ACTION)

Documentation

Surround > and < by blanks, leaving room for >= and <=, and considering ->.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/idlwave.el.gz
(defun idlwave-custom-ltgtr-surround (gtr &optional is-action)
  "Surround > and < by blanks, leaving room for >= and <=, and considering ->."
  (let* ((prev-char (char-after (- (point) 2)))
	(next-char (char-after (point)))
	(method-invoke (and gtr (eq prev-char ?-)))
	(len (if method-invoke 2 1)))
    (unless (eq next-char ?=)
      ;; Key binding: pad only on left, to save for possible >=/<=
      (idlwave-surround -1 (if (or is-action method-invoke) -1) len))))