Function: serial-nice-speed-history

serial-nice-speed-history is a byte-compiled function defined in term.el.gz.

Signature

(serial-nice-speed-history)

Documentation

Return serial-speed-history cleaned up for a mouse-menu.

Source Code

;; Defined in /usr/src/emacs/lisp/term.el.gz
(defun serial-nice-speed-history ()
  "Return `serial-speed-history' cleaned up for a mouse-menu."
  (let ((x) (y))
    (setq x
         (sort
          (copy-sequence serial-speed-history)
          (lambda (a b) (when (and (stringp a) (stringp b))
                     (> (string-to-number a) (string-to-number b))))))
    (dolist (i x) (when (not (equal i (car y))) (push i y)))
    y))