2218 |
(if rehide-place (goto-char rehide-place)) |
(if rehide-place (goto-char rehide-place)) |
2219 |
(allout-hide-current-entry-completely)) |
(allout-hide-current-entry-completely)) |
2220 |
(allout-hide-current-entry)) |
(allout-hide-current-entry)) |
2221 |
(error (concat |
(error "Change within concealed region prevented.")))))) |
|
"Change within concealed region prevented."))))))) |
|
2222 |
) ; if |
) ; if |
2223 |
) ; defun |
) ; defun |
2224 |
;;;_ = allout-post-goto-bullet |
;;;_ = allout-post-goto-bullet |
3425 |
(interactive) |
(interactive) |
3426 |
(if (not allout-file-xref-bullet) |
(if (not allout-file-xref-bullet) |
3427 |
(error |
(error |
3428 |
"outline cross references disabled - no `allout-file-xref-bullet'") |
"Outline cross references disabled - no `allout-file-xref-bullet'") |
3429 |
(if (not (string= (allout-current-bullet) allout-file-xref-bullet)) |
(if (not (string= (allout-current-bullet) allout-file-xref-bullet)) |
3430 |
(error "current heading lacks cross-reference bullet `%s'" |
(error "Current heading lacks cross-reference bullet `%s'" |
3431 |
allout-file-xref-bullet) |
allout-file-xref-bullet) |
3432 |
(let (file-name) |
(let (file-name) |
3433 |
(save-excursion |
(save-excursion |