diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-05 00:27:16 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-05 00:27:16 -0400 |
| commit | 365f8d856c11b0684817aec977905b8831d4d973 (patch) | |
| tree | 4549878a5b741ab67c912d93e9db7943c6ddf966 /lisp/mail/supercite.el | |
| parent | 80ac5d4d34b34947df9b0088d81ec02aa10a93b5 (diff) | |
| download | emacs-365f8d856c11b0684817aec977905b8831d4d973.tar.gz | |
Minor cleanups.
* org-table.el (orgtbl-setup):
* org-agenda.el (org-agenda-entry-text-mode): Simplify.
* subr.el (add-minor-mode): Use push.
* mail/supercite.el (sc-electric-mode): Use more descriptive arg name.
* emulation/edt.el (edt-select-mode): Simplify.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 9144be89e96..1660721fe21 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1619,21 +1619,20 @@ error occurs." (cadr err) sc-eref-style) (beep)))))) -(defun sc-electric-mode (&optional arg) - " -Mode for viewing Supercite reference headers. Commands are: +(defun sc-electric-mode (&optional style) + "Mode for viewing Supercite reference headers. Commands are: \n\\{sc-electric-mode-map} `sc-electric-mode' is not intended to be run interactively, but rather accessed through Supercite's electric reference feature. See -`sc-insert-reference' for more details. Optional ARG is the initial +`sc-insert-reference' for more details. Optional STYLE is the initial header style to use, unless not supplied or invalid, in which case `sc-preferred-header-style' is used." (let ((info sc-mail-info)) (setq sc-eref-style - (or (sc-valid-index-p arg) + (or (sc-valid-index-p style) (sc-valid-index-p sc-preferred-header-style) 0)) |