Gecko [ 122.154.134.11 ]

Name	Size	Permission
ange-ftp.elc	116.81 KB	-rw-r--r--
browse-url.el.xdg	57.99 KB	-rw-r--r--
browse-url.elc	46.94 KB	-rw-r--r--
dbus.elc	28.38 KB	-rw-r--r--
dig.elc	5.08 KB	-rw-r--r--
dns.elc	11.33 KB	-rw-r--r--
eudc-bob.elc	9.11 KB	-rw-r--r--
eudc-export.elc	5.9 KB	-rw-r--r--
eudc-hotlist.elc	5.71 KB	-rw-r--r--
eudc-vars.elc	14.61 KB	-rw-r--r--
eudc.elc	32.17 KB	-rw-r--r--
eudcb-bbdb.elc	5.41 KB	-rw-r--r--
eudcb-ldap.elc	5.18 KB	-rw-r--r--
eudcb-mab.elc	2.88 KB	-rw-r--r--
eudcb-ph.elc	6.44 KB	-rw-r--r--
goto-addr.elc	9.28 KB	-rw-r--r--
hmac-def.elc	2.07 KB	-rw-r--r--
hmac-md5.elc	2.15 KB	-rw-r--r--
imap.elc	104.58 KB	-rw-r--r--
ldap.elc	14.29 KB	-rw-r--r--
mairix.elc	24.37 KB	-rw-r--r--
net-utils.elc	25.21 KB	-rw-r--r--
netrc.elc	4.79 KB	-rw-r--r--
newst-backend.elc	66.66 KB	-rw-r--r--
newst-plainview.elc	51.17 KB	-rw-r--r--
newst-reader.elc	28.81 KB	-rw-r--r--
newst-ticker.elc	7.82 KB	-rw-r--r--
newst-treeview.elc	67.9 KB	-rw-r--r--
newsticker.elc	1.01 KB	-rw-r--r--
ntlm.elc	12.39 KB	-rw-r--r--
quickurl.elc	16.54 KB	-rw-r--r--
rcirc.elc	89.27 KB	-rw-r--r--
rcompile.elc	3.51 KB	-rw-r--r--
rlogin.elc	10.63 KB	-rw-r--r--
sasl-cram.elc	1.25 KB	-rw-r--r--
sasl-digest.elc	3.75 KB	-rw-r--r--
sasl-ntlm.elc	1.82 KB	-rw-r--r--
sasl.elc	7.39 KB	-rw-r--r--
snmp-mode.elc	15.08 KB	-rw-r--r--
socks.elc	16.21 KB	-rw-r--r--
telnet.elc	9.03 KB	-rw-r--r--
tls.elc	8.04 KB	-rw-r--r--
tramp-cache.elc	8.96 KB	-rw-r--r--
tramp-cmds.elc	9.4 KB	-rw-r--r--
tramp-compat.elc	6 KB	-rw-r--r--
tramp-fish.elc	54.2 KB	-rw-r--r--
tramp-ftp.elc	5.33 KB	-rw-r--r--
tramp-gw.elc	13.27 KB	-rw-r--r--
tramp-smb.elc	50.78 KB	-rw-r--r--
tramp-uu.elc	1.88 KB	-rw-r--r--
tramp.elc	278.99 KB	-rw-r--r--
trampver.elc	1.06 KB	-rw-r--r--
webjump.elc	13.86 KB	-rw-r--r--
xesam.elc	24.5 KB	-rw-r--r--
zeroconf.elc	17.98 KB	-rw-r--r--

Code Editor : quickurl.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:33 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/net/quickurl.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`quickurl.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315&	\207" [require thingatpt pp browse-url custom-declare-group quickurl nil "Insert an URL based on text at point in buffer." :version "21.1" :group abbrev :prefix "quickurl-"] 10)
#@35 *File that contains the URL list.
(custom-declare-variable 'quickurl-url-file '(convert-standard-filename "~/.quickurls") '(#$ . -882) :type 'file :group 'quickurl)
#@71 *Function to format the URL before insertion into the current buffer.
(custom-declare-variable 'quickurl-format-function '(lambda (url) (format "<URL:%s>" (quickurl-url-url url))) '(#$ . -1053) :type 'function :group 'quickurl)
#@33 *Function to sort the URL list.
(custom-declare-variable 'quickurl-sort-function '(lambda (list) (sort list (lambda (x y) (string< (downcase (quickurl-url-description x)) (downcase (quickurl-url-description y)))))) '(#$ . -1287) :type 'function :group 'quickurl)
#@40 *Function to grab the thing to lookup.
(custom-declare-variable 'quickurl-grab-lookup-function '#'current-word '(#$ . -1556) :type 'function :group 'quickurl)
#@57 *Function to use for alist lookup into `quickurl-urls'.
(custom-declare-variable 'quickurl-assoc-function '#'assoc-ignore-case '(#$ . -1721) :type 'function :group 'quickurl)
#@65 *Should `quickurl-ask' ignore case when doing the input lookup?
(custom-declare-variable 'quickurl-completion-ignore-case 't '(#$ . -1902) :type 'boolean :group 'quickurl)
#@68 *Text to write to `quickurl-url-file' before writing the URL list.
(custom-declare-variable 'quickurl-prefix '";; -*- lisp -*-\n\n" '(#$ . -2080) :type 'string :group 'quickurl)
#@163 *Text to write to `quickurl-url-file' after writing the URL list.

See the constant `quickurl-reread-hook-postfix' for some example text that
could be used here.
(custom-declare-variable 'quickurl-postfix '"" '(#$ . -2265) :type 'string :group 'quickurl)
#@34 *Hooks for `quickurl-list-mode'.
(custom-declare-variable 'quickurl-list-mode-hook 'nil '(#$ . -2526) :type 'hook :group 'quickurl)
#@338 Example `quickurl-postfix' text that adds a local variable to the
`quickurl-url-file' so that if you edit it by hand it will ensure that
`quickurl-urls' is updated with the new URL list.

To make use of this do something like:

(setq quickurl-postfix quickurl-reread-hook-postfix)

in your ~/.emacs (after loading/requiring quickurl).
(defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" (#$ . 2665))
#@55 URL alist for use with `quickurl' and `quickurl-ask'.
(defvar quickurl-urls nil (#$ . 3200))
#@49 Local keymap for a `quickurl-list-mode' buffer.
(defvar quickurl-list-mode-map nil (#$ . 3299))
#@35 Name for the URL listinig buffer.
(defvar quickurl-list-buffer-name "*quickurl-list*" (#$ . 3401))
#@51 `current-buffer' when `quickurl-list' was called.
(defvar quickurl-list-last-buffer nil (#$ . 3506))
#@30 Does the URL have a comment?
(defalias 'quickurl-url-commented-p #[(url) "A<\207" [url] 1 (#$ . 3613)])
#@58 Create an URL from KEYWORD, URL and (optionaly) COMMENT.
(defalias 'quickurl-make-url #[(keyword url &optional comment) "\203�\303G!\204�	\nE\207	\nB\207" [comment keyword url zerop] 3 (#$ . 3724)])
#@79 Return the keyword for the URL.

Note that this function is a setfable place.
(defalias 'quickurl-url-keyword #[(url) "@\207" [url] 1 (#$ . 3934)])
(put 'quickurl-url-keyword 'setf-method #[(url) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--url--temp-- --store--temp-- url store make-symbol "--cl-url--" "--cl-store--" setf car quickurl-url-keyword] 6])
#@81 Return the actual URL of the URL.

Note that this function is a setfable place.
(defalias 'quickurl-url-url #[(url) "\302!\203
�\211A@)\207A\207" [url x quickurl-url-commented-p] 3 (#$ . 4317)])
(put 'quickurl-url-url 'setf-method #[(url) "\304\305!\304\306!C\nC	C	\307\310\nD\311\312\nDE\311\313\nDEF*\314D\257*\207" [--url--temp-- --store--temp-- url store make-symbol "--cl-url--" "--cl-store--" if quickurl-url-commented-p setf cadr cdr quickurl-url-url] 9])
#@136 Get the comment from an URL.

If the URL has no comment an empty string is returned. Also note that this
function is a setfable place.
(defalias 'quickurl-url-comment #[(url) "\301!\203\n�\3028\207\303\207" [url quickurl-url-commented-p 2 ""] 2 (#$ . 4801)])
(put 'quickurl-url-comment 'setf-method #[(url) "\304\305!\304\306!C\nC	C	\307\310\nD\307\311\312DD\313\314\nD\315\nDE\313\316\317\nEEF\320\311\312DD\313\314\nD\321\314\nDEEEF*\322D\257*\207" [--url--temp-- --store--temp-- url store make-symbol "--cl-url--" "--cl-store--" if quickurl-url-commented-p zerop length setf cdr cadr nth 2 unless list quickurl-url-comment] 13])
#@119 Return a description for the URL.

If the URL has a comment then this is returned, otherwise the keyword is
returned.
(defalias 'quickurl-url-description #[(url) "\302!\303	G!\203�\304!\202�	)\207" [url desc quickurl-url-comment zerop quickurl-url-keyword] 2 (#$ . 5454)])
#@216 `read' the URL list from BUFFER into `quickurl-urls'.

BUFFER, if nil, defaults to current buffer.
Note that this function moves point to `point-min' before doing the `read'
It also restores point after the `read'.
(defalias 'quickurl-read #[(&optional buffer) "\212eb\210\303	\206�p!!\211)\207" [quickurl-sort-function buffer quickurl-urls read] 3 (#$ . 5739)])
#@64 Load the contents of `quickurl-url-file' into `quickurl-urls'.
(defalias 'quickurl-load-urls #[nil "\302!\205�\303\304!r	q\210\305\216\306!\210\307 +\207" [quickurl-url-file #1=#:temp-buffer file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents quickurl-read] 2 (#$ . 6111)])
#@62 Save the contents of `quickurl-urls' to `quickurl-url-file'.
(defalias 'quickurl-save-urls #[nil "\306\307!rq\210\310\216p\311\n!\210\312!\210\311\f!\210\313ed
\314\315%,\207" [#1=#:temp-buffer standard-output quickurl-prefix quickurl-urls quickurl-postfix quickurl-url-file generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) princ pp write-region nil 0] 6 (#$ . 6488)])
#@252 Return URL associated with key LOOKUP.

The lookup is done by looking in the alist `quickurl-urls' and the `cons'
for the URL is returned. The actual method used to look into the alist
depends on the setting of the variable `quickurl-assoc-function'.
(defalias 'quickurl-find-url #[(lookup) "	\n\"\207" [quickurl-assoc-function lookup quickurl-urls] 3 (#$ . 6929)])
#@133 Insert URL, formatted using `quickurl-format-function'.

Also display a `message' saying what the URL was unless SILENT is non-nil.
(defalias 'quickurl-insert #[(url &optional silent) "	!c\210\n?\205�\303\304\305	!\"\207" [quickurl-format-function url silent message "Found %s" quickurl-url-url] 4 (#$ . 7303)])
#@184 Insert an URL based on LOOKUP.

If not supplied LOOKUP is taken to be the word at point in the current
buffer, this default action can be modifed via
`quickurl-grab-lookup-function'.
(defalias 'quickurl #[(&optional lookup) "\204�	 \211\205.�\303 \210\304!\211\204�\305\306\"\202-�\307\310!\203'�\311\310!\210\312c\210\313\n!)\207" [lookup quickurl-grab-lookup-function url quickurl-load-urls quickurl-find-url error "No URL associated with \"%s\"" looking-at "\\w" skip-syntax-forward " " quickurl-insert] 4 (#$ . 7624) nil])
#@64 Insert an URL, with `completing-read' prompt, based on LOOKUP.
(defalias 'quickurl-ask #[(lookup) "\302!\211\205�\303	!)\207" [lookup url quickurl-find-url quickurl-insert] 3 (#$ . 8164) (list (progn (quickurl-load-urls) (let ((completion-ignore-case quickurl-completion-ignore-case)) (completing-read "Lookup: " quickurl-urls nil t))))])
#@362 Attempt to grab a word/url pair from point in the current buffer.

Point should be somewhere on the URL and the word is taken to be the thing
that is returned from calling `quickurl-grab-lookup-function' once a
`backward-word' has been issued at the start of the URL.

It is assumed that the URL is either "unguarded" or is wrapped inside an
<URL:...> wrapper.
(defalias 'quickurl-grab-url #[nil "\305\300!\211\2057�\212\306\300!\210\307	!\203�\310\311!\210\312v\210\n \211\2056�\313\314\315!r\fq\210\316\216c\210\317ed\"+\"*)\207" [url thing-at-point-markedup-url-regexp quickurl-grab-lookup-function word #1=#:temp-buffer thing-at-point beginning-of-thing thing-at-point-looking-at search-backward "<URL:" -1 quickurl-make-url generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) buffer-substring-no-properties] 5 (#$ . 8513)])
#@158 Allow the user to interactively add a new URL associated with WORD.

See `quickurl-grab-url' for details on how the default word/url combination
is decided.
(defalias 'quickurl-add-url #[(word url comment) "\306G!\203�\307\310!\207\311 \210\312!\211\203'�t\203#�\313\314\315\"!\202(�\316\202(�\316\211\205\250�	\203\202�\317	!\203A�	A\f\240\210\202E�	\f\241\210)
\317	!\203n�\306G!\203d�	\211\211A@)\241\210\202~�	AA\240\210\202~�\306G!\204~�	\211AD\241\210)\202\214�\320
#B!\321 \210\322!\203\240�\323 \210t\205\250�\324\325\"*\207" [word current-url add-it url #1=#:--cl-store-- comment zerop error "You must specify a WORD for lookup" quickurl-load-urls quickurl-find-url y-or-n-p format "\"%s\" exists, replace URL? " t quickurl-url-commented-p quickurl-make-url quickurl-save-urls get-buffer quickurl-list-populate-buffer message "Added %s" #2=#:--cl-store-- x quickurl-urls quickurl-sort-function quickurl-list-buffer-name] 5 (#$ . 9413) (let ((word-url (quickurl-grab-url))) (list (read-string "Word: " (quickurl-url-keyword word-url)) (read-string "URL: " (quickurl-url-url word-url)) (read-string "Comment: " (quickurl-url-comment word-url))))])
#@192 Browse the URL associated with LOOKUP.

If not supplied LOOKUP is taken to be the word at point in the
current buffer, this default action can be modifed via
`quickurl-grab-lookup-function'.
(defalias 'quickurl-browse-url #[(&optional lookup) "\204�	 \211\205#�\303 \210\304!\211\203�\305\306\n!!\202\"�\307\310\")\207" [lookup quickurl-grab-lookup-function url quickurl-load-urls quickurl-find-url browse-url quickurl-url-url error "No URL associated with \"%s\""] 4 (#$ . 10610) nil])
#@72 Browse the URL, with `completing-read' prompt, associated with LOOKUP.
(defalias 'quickurl-browse-url-ask #[(lookup) "\302!\211\205
�\303\304	!!)\207" [lookup url quickurl-find-url browse-url quickurl-url-url] 4 (#$ . 11110) (list (progn (quickurl-load-urls) (completing-read "Browse: " quickurl-urls nil t)))])
#@58 Pull `quickurl-url-file' into a buffer for hand editing.
(defalias 'quickurl-edit-urls #[nil "\301!\207" [quickurl-url-file find-file] 2 (#$ . 11430) nil])
(byte-code "\204K�\302 \303	\304\"\210\305	\306\307#\210\305	\310\311#\210\305	\312\313#\210\305	\314\315#\210\305	\316\317#\210\305	\320\321#\210\305	\322\323#\210\305	\324\323#\210\305	\325\326#\210\305	\327\330#\210	)\331\332\333\334#\207" [quickurl-list-mode-map map make-sparse-keymap suppress-keymap t define-key "a" quickurl-list-add-url [(control m)] quickurl-list-insert-url "u" quickurl-list-insert-naked-url " " quickurl-list-insert-with-lookup "l" quickurl-list-insert-lookup "d" quickurl-list-insert-with-desc [(control g)] quickurl-list-quit "q" [mouse-2] quickurl-list-mouse-select "?" describe-mode put quickurl-list-mode mode-class special] 4)
#@119 A mode for browsing the quickurl URL list.

The key bindings for `quickurl-list-mode' are:

\{quickurl-list-mode-map}
(defalias 'quickurl-list-mode #[nil "\305 \210\306!\210\307\310\311\312!\210\313\211\211\207" [quickurl-list-mode-map major-mode mode-name buffer-read-only truncate-lines kill-all-local-variables use-local-map quickurl-list-mode "quickurl list" run-mode-hooks quickurl-list-mode-hook t] 3 (#$ . 12258) nil])
#@73 Display `quickurl-list' as a formatted list using `quickurl-list-mode'.
(defalias 'quickurl-list #[nil "\302 \210\303 \230\204\f�p\304!\210\305 \210\306 \207" [quickurl-list-buffer-name quickurl-list-last-buffer quickurl-load-urls buffer-name pop-to-buffer quickurl-list-populate-buffer quickurl-list-mode] 2 (#$ . 12695) nil])
#@38 Populate the `quickurl-list' buffer.
(defalias 'quickurl-list-populate-buffer #[nil "r\306!q\210\307\310\311\312\313	\307\211\n:\203'�\n@\314!G\fB\nA\211\202�\f\237+\206/�\315C\"\"\316 \210\317c\210	\307:\203i�@`\310
\314!\320!#c\210\321`S\322#\210)A\211\202A�*eb+\207" [quickurl-list-buffer-name quickurl-urls #1=#:--cl-var-- url #2=#:--cl-var-- fmt get-buffer nil format "%%-%ds %%s\n" apply max quickurl-url-description 20 erase-buffer "" quickurl-url-url add-text-properties (mouse-face highlight help-echo "mouse-2: insert this URL") buffer-read-only #3=#:--cl-var-- start] 8 (#$ . 13032)])
#@67 Wrapper for `quickurl-add-url' that doesn't guess the parameters.
(defalias 'quickurl-list-add-url #[(word url comment) "\303	\n#\207" [word url comment quickurl-add-url] 4 (#$ . 13664) "sWord: \nsURL: \nsComment: "])
#@52 Kill the buffer named `quickurl-list-buffer-name'.
(defalias 'quickurl-list-quit #[nil "\302!\210\303	!\210\304 \207" [quickurl-list-buffer-name quickurl-list-last-buffer kill-buffer switch-to-buffer delete-other-windows] 2 (#$ . 13889) nil])
#@39 Select the URL under the mouse click.
(defalias 'quickurl-list-mouse-select #[(event) "\211:\203�\3028:\203�\302\202�\3038\202�\304 `\305\306F)\307	8\2067�	A@:\2034�	A@@\2027�	A@)b\210\310 \207" [event position 2 1 selected-window (0 . 0) 0 5 quickurl-list-insert-url] 5 (#$ . 14139) "e"])
#@353 Insert the URL under cursor into `quickurl-list-last-buffer'.
TYPE dictates what will be inserted, options are:
  `url'         - Insert the URL as <URL:url>
  `naked-url'   - Insert the URL with no formatting
  `with-lookup' - Insert "lookup <URL:url>"
  `with-desc'   - Insert "description <URL:url>"
  `lookup'      - Insert the lookup for that URL
(defalias 'quickurl-list-insert #[(type) "\212\305 \210\306e`\")8\211\203d�r\nq\210\307\310\"\203!�\f	!\202^�\307\311\"\203.�\312	!\202^�\307\313\"\203A�\314\315\316	!\312	!#\202^�\307\317\"\203T�\314\320\321	!\312	!#\202^�\307\322\"\205^�\316	!c\210)\202h�\323\324!\210	)\207" [quickurl-urls url quickurl-list-last-buffer type quickurl-format-function beginning-of-line count-lines memql 'url 'naked-url quickurl-url-url 'with-lookup format "%s <URL:%s>" quickurl-url-keyword 'with-desc "%S <URL:%s>" quickurl-url-description 'lookup error "No URL details on that line"] 6 (#$ . 14445)])
#@76 Macro to make a key-response function for use in `quickurl-list-mode-map'.
(defalias 'quickurl-list-make-inserter '(macro . #[(type) "\301\302\303\304\"!\305\303\306\"\307\310\311\312DD\313BB\257\207" [type defun intern format "quickurl-list-insert-%S" nil "Insert the result of calling `quickurl-list-insert' with `%s'." (interactive) when quickurl-list-insert quote ((quickurl-list-quit))] 9 (#$ . 15399)]))
#@65 Insert the result of calling `quickurl-list-insert' with `url'.
(defalias 'quickurl-list-insert-url #[nil "\300\301!\205�\302 \207" [quickurl-list-insert url quickurl-list-quit] 2 (#$ . 15819) nil])
#@71 Insert the result of calling `quickurl-list-insert' with `naked-url'.
(defalias 'quickurl-list-insert-naked-url #[nil "\300\301!\205�\302 \207" [quickurl-list-insert naked-url quickurl-list-quit] 2 (#$ . 16025) nil])
#@73 Insert the result of calling `quickurl-list-insert' with `with-lookup'.
(defalias 'quickurl-list-insert-with-lookup #[nil "\300\301!\205�\302 \207" [quickurl-list-insert with-lookup quickurl-list-quit] 2 (#$ . 16249) nil])
#@71 Insert the result of calling `quickurl-list-insert' with `with-desc'.
(defalias 'quickurl-list-insert-with-desc #[nil "\300\301!\205�\302 \207" [quickurl-list-insert with-desc quickurl-list-quit] 2 (#$ . 16479) nil])
#@68 Insert the result of calling `quickurl-list-insert' with `lookup'.
(defalias 'quickurl-list-insert-lookup #[nil "\300\301!\205�\302 \207" [quickurl-list-insert lookup quickurl-list-quit] 2 (#$ . 16703) nil])
(provide 'quickurl)

${this.title}

Code Editor : quickurl.elc