Function: elp-pack-number

elp-pack-number is a byte-compiled function defined in elp.el.gz.

Signature

(elp-pack-number NUMBER WIDTH)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/elp.el.gz
(defsubst elp-pack-number (number width)
  ;; pack the NUMBER string into WIDTH characters, watching out for
  ;; very small or large numbers
  (if (<= (length number) width)
      number
    ;; check for very large or small numbers
    (if (string-match "^\\(.*\\)\\(e[+-].*\\)$" number)
	(concat (substring
		 (match-string 1 number)
		 0
		 (- width (match-end 2) (- (match-beginning 2)) 3))
		"..."
		(match-string 2 number))
      (substring number 0 width))))