Mercurial > emacs
comparison lisp/mail/supercite.el @ 108243:be3f6d650654
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.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 05 May 2010 00:27:16 -0400 |
parents | f96fe531e7a6 |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
108242:dc6153a5f4f7 | 108243:be3f6d650654 |
---|---|
1617 (progn (message | 1617 (progn (message |
1618 "Symbol's function definition is void: %s (Header %d)" | 1618 "Symbol's function definition is void: %s (Header %d)" |
1619 (cadr err) sc-eref-style) | 1619 (cadr err) sc-eref-style) |
1620 (beep)))))) | 1620 (beep)))))) |
1621 | 1621 |
1622 (defun sc-electric-mode (&optional arg) | 1622 (defun sc-electric-mode (&optional style) |
1623 " | 1623 "Mode for viewing Supercite reference headers. Commands are: |
1624 Mode for viewing Supercite reference headers. Commands are: | |
1625 \n\\{sc-electric-mode-map} | 1624 \n\\{sc-electric-mode-map} |
1626 | 1625 |
1627 `sc-electric-mode' is not intended to be run interactively, but rather | 1626 `sc-electric-mode' is not intended to be run interactively, but rather |
1628 accessed through Supercite's electric reference feature. See | 1627 accessed through Supercite's electric reference feature. See |
1629 `sc-insert-reference' for more details. Optional ARG is the initial | 1628 `sc-insert-reference' for more details. Optional STYLE is the initial |
1630 header style to use, unless not supplied or invalid, in which case | 1629 header style to use, unless not supplied or invalid, in which case |
1631 `sc-preferred-header-style' is used." | 1630 `sc-preferred-header-style' is used." |
1632 | 1631 |
1633 (let ((info sc-mail-info)) | 1632 (let ((info sc-mail-info)) |
1634 | 1633 |
1635 (setq sc-eref-style | 1634 (setq sc-eref-style |
1636 (or (sc-valid-index-p arg) | 1635 (or (sc-valid-index-p style) |
1637 (sc-valid-index-p sc-preferred-header-style) | 1636 (sc-valid-index-p sc-preferred-header-style) |
1638 0)) | 1637 0)) |
1639 | 1638 |
1640 (get-buffer-create sc-electric-bufname) | 1639 (get-buffer-create sc-electric-bufname) |
1641 ;; set up buffer and enter command loop | 1640 ;; set up buffer and enter command loop |