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:
Carsten Dominik 2009-02-25 12:41:04 +01:00
parent 70edb32234
commit df0a5baf5d
2 changed files with 26 additions and 15 deletions

View File

@ -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).

View File

@ -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)