Function: quickurl-list-populate-buffer

quickurl-list-populate-buffer is a byte-compiled function defined in quickurl.el.gz.

Signature

(quickurl-list-populate-buffer)

Documentation

Populate the quickurl-list buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/quickurl.el.gz
(defun quickurl-list-populate-buffer ()
  "Populate the `quickurl-list' buffer."
  (with-current-buffer quickurl-list-buffer-name
    (let* ((sizes (or (cl-loop for url in quickurl-urls
                               collect (length (quickurl-url-description url)))
                      (list 20)))
           (fmt (format "%%-%ds %%s\n" (apply #'max sizes)))
           (inhibit-read-only t))
      (erase-buffer)
      (dolist (url quickurl-urls)
        (let ((start (point)))
          (insert (format fmt (quickurl-url-description url)
                          (quickurl-url-url url)))
          (add-text-properties
           start (1- (point))
           '(mouse-face highlight help-echo "mouse-2: insert this URL"))))
      (goto-char (point-min)))))