diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-29 21:21:32 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-29 21:21:32 +0000 |
commit | 7320355e0c746e31aca91051758cc15499624b0c (patch) | |
tree | 5e5779679cbeeec98bd93d6fa37cb2777dab08ef | |
parent | a77d38b11ec1a2e886fb739f7df3e7bbca1a34c7 (diff) |
Woops. Fix swallowing one function inside the other.
-rw-r--r-- | sx-question-print.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index 22f857c..ebdba56 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -394,19 +394,11 @@ URL is used as 'help-echo and 'url properties." ;; For visiting and stuff. 'sx-button-url url 'sx-button-copy url - :type 'sx-button-link) + :type 'sx-button-link)) - (defun sx-question-mode-find-reference (id &optional fallback-id) - "Find url identified by reference ID in current buffer. +(defun sx-question-mode-find-reference (id &optional fallback-id) + "Find url identified by reference ID in current buffer. If ID is nil, use FALLBACK-ID instead." - (save-excursion - (save-match-data - (goto-char (point-min)) - (when (search-forward-regexp - (format sx-question-mode--reference-regexp - (or id fallback-id)) - nil t) - (match-string-no-properties 1)))))) (defun sx-question-mode--move-over-pre () "Non-nil if paragraph at point can be filled." |