Function: quickurl-url-url

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

Signature

(quickurl-url-url URL)

Documentation

Return the actual URL of the URL.

Note that this function is a setfable place.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/quickurl.el.gz
(defun quickurl-url-url (url)
  "Return the actual URL of the URL.

Note that this function is a setfable place."
  (declare (gv-setter (lambda (store)
                        `(setf (if (quickurl-url-commented-p ,url)
                                   (cadr ,url)
                                 (cdr ,url))
                               ,store))))
  (if (quickurl-url-commented-p url)
      (cadr url)
    (cdr url)))