Function: time-stamp--system-name-1

time-stamp--system-name-1 is a byte-compiled function defined in time-stamp.el.gz.

Signature

(time-stamp--system-name-1 SYSNAME TYPE)

Documentation

Return SYSNAME, shortened if TYPE is :short.

Source Code

;; Defined in /usr/src/emacs/lisp/time-stamp.el.gz
(defun time-stamp--system-name-1 (sysname type)
  "Return SYSNAME, shortened if TYPE is :short."
  (declare (pure t))
  (let (first-dot)
    (if (and (eq type :short)
             (setq first-dot (string-match-p "\\." sysname)))
        (substring sysname 0 first-dot)
      sysname)))