Mercurial > emacs
comparison lisp/net/quickurl.el @ 91302:56a72e2bd635
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-306
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 29 Dec 2007 02:39:17 +0000 |
parents | f55f9811f5d7 20bb7aaa7b12 |
children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
91301:7774e5860c70 | 91302:56a72e2bd635 |
---|---|
87 (eval-when-compile | 87 (eval-when-compile |
88 (require 'cl)) | 88 (require 'cl)) |
89 (require 'thingatpt) | 89 (require 'thingatpt) |
90 (require 'pp) | 90 (require 'pp) |
91 (require 'browse-url) | 91 (require 'browse-url) |
92 | |
93 ;; Attempt to handle older/other emacs. | |
94 (eval-and-compile | |
95 ;; If customize isn't available just use defvar instead. | |
96 (unless (fboundp 'defgroup) | |
97 (defmacro defgroup (&rest rest) nil) | |
98 (defmacro defcustom (symbol init docstring &rest rest) | |
99 `(defvar ,symbol ,init ,docstring)))) | |
100 | 92 |
101 ;; Customize options. | 93 ;; Customize options. |
102 | 94 |
103 (defgroup quickurl nil | 95 (defgroup quickurl nil |
104 "Insert an URL based on text at point in buffer." | 96 "Insert an URL based on text at point in buffer." |