     (url-retrieve url display-rfc)))
 
 (defun my-rfc-lookup-html (rfc-num)
-  "Look up an RFC using tools.ietf.org."
+  "Look up RFC-NUM using tools.ietf.org."
   (interactive (list
                 (read-number "RFC number:" (thing-at-point 'number))))
   (let ((url (format "https://tools.ietf.org/html/rfc%s.txt" rfc-num)))

    (defun my-disable-yas-in-term ()
      (yas-minor-mode -1))
    (add-to-list 'yas-snippet-dirs "~/.emacs.d/snippets/")
    (yas-global-mode)
    (add-hook 'term-mode-hook #'my-disable-yas-in-term)))

(use-package undo-tree

            (set-visited-file-name new-name t t)))
      (rename-buffer new-name))))


;;;
;;; Too small to be packages
;;;

;; Test: RFC 1231

(defun my-rfc-lookup-text (rfc-num)
  "Look up an RFC-NUM using tools.ietf.org."
  (interactive (list
                (read-number "RFC number:" (thing-at-point 'number))))
  (let ((url (format "https://tools.ietf.org/rfc/rfc%s.txt" rfc-num))
