diff options
| author | David Aspinall | 2009-08-28 17:19:11 +0000 |
|---|---|---|
| committer | David Aspinall | 2009-08-28 17:19:11 +0000 |
| commit | 1f6baad655836ad24047cb1caac63b2d0384a5da (patch) | |
| tree | 9d55069e7c9b2cbb62743bdb69de3f326da5759e | |
| parent | 141578789ed742060d8915a28f343e080c5eee95 (diff) | |
pg-create-in-span-context-menu: fix nesting
| -rw-r--r-- | generic/pg-user.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/pg-user.el b/generic/pg-user.el index 54c2c919..5c2c9132 100644 --- a/generic/pg-user.el +++ b/generic/pg-user.el @@ -822,14 +822,14 @@ If NUM is negative, move upwards. Return new span." (list 'pg-span-undo span) t)) (list (vector "Move up" (list 'pg-move-span-contents span -1) - (pg-numth-span-higher-or-lower (pg-control-span-of span) -1 'noerr)))) - (list (vector - "Move down" (list 'pg-move-span-contents span 1) - (pg-numth-span-higher-or-lower (pg-control-span-of span) 1 'noerr))) - (if proof-script-span-context-menu-extensions - (funcall proof-script-span-context-menu-extensions span idiom name)) - (if proof-shell-theorem-dependency-list-regexp - (proof-dependency-in-span-context-menu span))) + (pg-numth-span-higher-or-lower (pg-control-span-of span) -1 'noerr))) + (list (vector + "Move down" (list 'pg-move-span-contents span 1) + (pg-numth-span-higher-or-lower (pg-control-span-of span) 1 'noerr))) + (if proof-script-span-context-menu-extensions + (funcall proof-script-span-context-menu-extensions span idiom name)) + (if proof-shell-theorem-dependency-list-regexp + (proof-dependency-in-span-context-menu span)))) (defun pg-span-undo (span) "Undo to the start of the given SPAN." |