Function: calendar-abbrev-construct

calendar-abbrev-construct is a byte-compiled function defined in calendar.el.gz.

Signature

(calendar-abbrev-construct FULL &optional MAXLEN)

Documentation

From sequence FULL, return a vector of abbreviations.

Each abbreviation is no longer than MAXLEN (default calendar-abbrev-length) characters.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defun calendar-abbrev-construct (full &optional maxlen)
  "From sequence FULL, return a vector of abbreviations.
Each abbreviation is no longer than MAXLEN (default `calendar-abbrev-length')
characters."
  (or maxlen (setq maxlen calendar-abbrev-length))
  (apply #'vector (mapcar
                   (lambda (f)
                     ;; TODO? truncate-string-to-width?
                     (substring f 0 (min maxlen (length f))))
                   full)))