Function: ange-ftp-message

ange-ftp-message is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-message FMT &rest ARGS)

Documentation

Display message in echo area, but indicate if truncated.

Args are as in message: a format string, plus arguments to be formatted.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
;;; ------------------------------------------------------------
;;; Enhanced message support.
;;; ------------------------------------------------------------

(defun ange-ftp-message (fmt &rest args)
  "Display message in echo area, but indicate if truncated.
Args are as in `message': a format string, plus arguments to be formatted."
  (let ((msg (apply #'format-message fmt args))
	(max (window-width (minibuffer-window))))
    (if noninteractive
	msg
      (if (>= (length msg) max)
	  ;; Take just the last MAX - 3 chars of the string.
	  (setq msg (concat "> " (substring msg (- 3 max)))))
      (message "%s" msg))))