aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-11-29 21:21:32 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-11-29 21:21:32 +0000
commit7320355e0c746e31aca91051758cc15499624b0c (patch)
tree5e5779679cbeeec98bd93d6fa37cb2777dab08ef
parenta77d38b11ec1a2e886fb739f7df3e7bbca1a34c7 (diff)
Woops. Fix swallowing one function inside the other.
-rw-r--r--sx-question-print.el14
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."