Reload: Keyboard and menu access to the reload command
`org-reload' is now accessible with `C-c C-x r', and through the menu.
This commit is contained in:
parent
70edb32234
commit
df0a5baf5d
|
@ -637,6 +637,8 @@ To do this, use
|
||||||
@example
|
@example
|
||||||
C-u M-x org-reload RET
|
C-u M-x org-reload RET
|
||||||
@end example
|
@end example
|
||||||
|
or select @code{Org -> Refresh/Reload -> Reload Org uncompiled} from the
|
||||||
|
menu.
|
||||||
@item
|
@item
|
||||||
Go to the @code{Options} menu and select @code{Enter Debugger on Error}
|
Go to the @code{Options} menu and select @code{Enter Debugger on Error}
|
||||||
(XEmacs has this option in the @code{Troubleshooting} sub-menu).
|
(XEmacs has this option in the @code{Troubleshooting} sub-menu).
|
||||||
|
|
39
lisp/org.el
39
lisp/org.el
|
@ -13250,29 +13250,35 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]."
|
||||||
|
|
||||||
(define-key org-mode-map "\C-c\C-x\C-c" 'org-columns)
|
(define-key org-mode-map "\C-c\C-x\C-c" 'org-columns)
|
||||||
|
|
||||||
|
(define-key org-mode-map "\C-c\C-xr" 'org-reload)
|
||||||
|
|
||||||
(when (featurep 'xemacs)
|
(when (featurep 'xemacs)
|
||||||
(org-defkey org-mode-map 'button3 'popup-mode-menu))
|
(org-defkey org-mode-map 'button3 'popup-mode-menu))
|
||||||
|
|
||||||
|
|
||||||
|
(defvar org-self-insert-command-undo-counter 0)
|
||||||
|
|
||||||
(defvar org-table-auto-blank-field) ; defined in org-table.el
|
(defvar org-table-auto-blank-field) ; defined in org-table.el
|
||||||
(defun org-self-insert-command (N)
|
(defun org-self-insert-command (N)
|
||||||
"Like `self-insert-command', use overwrite-mode for whitespace in tables.
|
"Like `self-insert-command', use overwrite-mode for whitespace in tables.
|
||||||
If the cursor is in a table looking at whitespace, the whitespace is
|
If the cursor is in a table looking at whitespace, the whitespace is
|
||||||
overwritten, and the table is not marked as requiring realignment."
|
overwritten, and the table is not marked as requiring realignment."
|
||||||
(interactive "p")
|
(interactive "p")
|
||||||
(if (and (org-table-p)
|
(if (and
|
||||||
(progn
|
(org-table-p)
|
||||||
;; check if we blank the field, and if that triggers align
|
(progn
|
||||||
(and (featurep 'org-table) org-table-auto-blank-field
|
;; check if we blank the field, and if that triggers align
|
||||||
(member last-command
|
(and (featurep 'org-table) org-table-auto-blank-field
|
||||||
'(org-cycle org-return org-shifttab org-ctrl-c-ctrl-c))
|
(member last-command
|
||||||
(if (or (equal (char-after) ?\ ) (looking-at "[^|\n]* |"))
|
'(org-cycle org-return org-shifttab org-ctrl-c-ctrl-c))
|
||||||
;; got extra space, this field does not determine column width
|
(if (or (equal (char-after) ?\ ) (looking-at "[^|\n]* |"))
|
||||||
(let (org-table-may-need-update) (org-table-blank-field))
|
;; got extra space, this field does not determine column width
|
||||||
;; no extra space, this field may determine column width
|
(let (org-table-may-need-update) (org-table-blank-field))
|
||||||
(org-table-blank-field)))
|
;; no extra space, this field may determine column width
|
||||||
t)
|
(org-table-blank-field)))
|
||||||
(eq N 1)
|
t)
|
||||||
(looking-at "[^|\n]* |"))
|
(eq N 1)
|
||||||
|
(looking-at "[^|\n]* |"))
|
||||||
(let (org-table-may-need-update)
|
(let (org-table-may-need-update)
|
||||||
(goto-char (1- (match-end 0)))
|
(goto-char (1- (match-end 0)))
|
||||||
(delete-backward-char 1)
|
(delete-backward-char 1)
|
||||||
|
@ -14265,7 +14271,10 @@ See the individual commands for more information."
|
||||||
["Expand This Menu" org-create-customize-menu
|
["Expand This Menu" org-create-customize-menu
|
||||||
(fboundp 'customize-menu-create)])
|
(fboundp 'customize-menu-create)])
|
||||||
"--"
|
"--"
|
||||||
["Refresh setup" org-mode-restart t]
|
("Refresh/Reload"
|
||||||
|
["Refresh setup current buffer" org-mode-restart t]
|
||||||
|
["Reload Org (after update)" org-reload t]
|
||||||
|
["Reload Org uncompiled" (org-reload t) :active t :keys "C-u C-c C-x r"])
|
||||||
))
|
))
|
||||||
|
|
||||||
(defun org-info (&optional node)
|
(defun org-info (&optional node)
|
||||||
|
|
Loading…
Reference in New Issue