diff options
author | Sean Allred <code@seanallred.com> | 2014-12-26 17:49:11 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-12-26 17:50:19 -0500 |
commit | 0db8321f1dbb827666ef79bdae19b4864cb524ac (patch) | |
tree | ed8eeb818cd78d18b597839fcf25dd843b2b4677 /sx-question-mode.el | |
parent | 0354bf2c974b13967558187936918db4af125571 (diff) | |
parent | a919c72f2b58d889bf3fbdde100f9912a90c64ab (diff) |
Merge branch 'master' into visit-question-from-link
Conflicts:
sx.el
Conflict arose from 6eb53ee0f12dd9f7d444e6749f6cc55c6db62078
Diffstat (limited to 'sx-question-mode.el')
-rw-r--r-- | sx-question-mode.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sx-question-mode.el b/sx-question-mode.el index 807eeea..a60cf3a 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -30,11 +30,13 @@ ;;; Displaying a question -(defcustom sx-question-mode-display-buffer-function #'switch-to-buffer +(defcustom sx-question-mode-display-buffer-function #'pop-to-buffer "Function used to display the question buffer. Called, for instance, when hitting \\<sx-question-list-mode-map>`\\[sx-question-list-display-question]' on an entry in the question list. -This is not used when navigating the question list with `\\[sx-question-list-view-next]." +This is not used when navigating the question list with `\\[sx-question-list-view-next]. + +Common values for this variable are `pop-to-buffer' and `switch-to-buffer'." :type 'function :group 'sx-question-mode) @@ -120,10 +122,8 @@ Prefix argument N moves N sections down or up." ;; If all we did was move out the current one, then move again ;; and we're guaranteed to reach the next section. (sx-question-mode--goto-property-change 'section n)) - (let ((ov (car-safe (sx-question-mode--section-overlays-at (point))))) - (unless (and (overlayp ov) - (overlay-get ov 'invisible)) - (cl-decf count))))) + (unless (get-char-property (point) 'invisible) + (cl-decf count)))) (when (equal (selected-window) (get-buffer-window)) (when sx-question-mode-recenter-line (let ((ov (sx-question-mode--section-overlays-at (line-end-position)))) |