Function: quickurl-url-comment

quickurl-url-comment is a byte-compiled function defined in quickurl.el.gz.

Signature

(quickurl-url-comment URL)

Documentation

Get the comment from a URL.

If the URL has no comment an empty string is returned. Also note that this function is a setfable place.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/quickurl.el.gz
(defun quickurl-url-comment (url)
  "Get the comment from a URL.

If the URL has no comment an empty string is returned.  Also note
that this function is a setfable place."
  (declare
   (gv-setter (lambda (store)
                `(if (quickurl-url-commented-p ,url)
                     (if (zerop (length ,store))
                         (setf (cdr ,url) (cadr ,url))
                       (setf (nth 2 ,url) ,store))
                   (unless (zerop (length ,store))
                     (setf (cdr ,url) (list (cdr ,url) ,store)))))))
  (if (quickurl-url-commented-p url)
      (nth 2 url)
    ""))