Function: ebnf-trim-right

ebnf-trim-right is a byte-compiled function defined in ebnf2ps.el.gz.

Signature

(ebnf-trim-right STR)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf2ps.el.gz
(defun ebnf-trim-right (str)
  (let* ((len   (1- (length str)))
	 (index len))
    (while (and (> index 0) (= (aref str index) ?\ ))
      (setq index (1- index)))
    (if (= index len)
	str
      (substring str 0 (1+ index)))))