Mercurial > emacs
comparison lisp/mail/supercite.el @ 64832:103e161cb74f
(sc-ask, sc-no-blank-line-or-header): Avoid warnings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Aug 2005 11:39:01 +0000 |
| parents | fafd692d1e40 |
| children | 5c09efcfc1d9 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
| 64831:40c02e6cdccd | 64832:103e161cb74f |
|---|---|
| 641 (message "%s" p) | 641 (message "%s" p) |
| 642 (setq event (read-event)) | 642 (setq event (read-event)) |
| 643 (prog1 quit-flag (setq quit-flag nil))) | 643 (prog1 quit-flag (setq quit-flag nil))) |
| 644 (progn | 644 (progn |
| 645 (message "%s%s" p (single-key-description event)) | 645 (message "%s%s" p (single-key-description event)) |
| 646 (and (fboundp 'deallocate-event) | 646 (if (fboundp 'deallocate-event) |
| 647 (deallocate-event event)) | 647 (deallocate-event event)) |
| 648 (setq quit-flag nil) | 648 (setq quit-flag nil) |
| 649 (signal 'quit '()))) | 649 (signal 'quit '()))) |
| 650 (let ((char | 650 (let ((char |
| 651 (if (featurep 'xemacs) | 651 (if (featurep 'xemacs) |
| 652 (let* ((key (and (key-press-event-p event) (event-key event))) | 652 (let* ((key (and (key-press-event-p event) (event-key event))) |
| 657 (if char (setq char (downcase char))) | 657 (if char (setq char (downcase char))) |
| 658 (cond | 658 (cond |
| 659 ((setq elt (rassq char alist)) | 659 ((setq elt (rassq char alist)) |
| 660 (message "%s%s" p (car elt)) | 660 (message "%s%s" p (car elt)) |
| 661 (setq p (cdr elt))) | 661 (setq p (cdr elt))) |
| 662 ((and (fboundp 'button-release-event-p) | 662 ((if (fboundp 'button-release-event-p) |
| 663 (button-release-event-p event)) ; ignore them | 663 (button-release-event-p event)) ; ignore them |
| 664 nil) | 664 nil) |
| 665 (t | 665 (t |
| 666 (message "%s%s" p (single-key-description event)) | 666 (message "%s%s" p (single-key-description event)) |
| 667 (if (featurep 'xemacs) | 667 (if (featurep 'xemacs) |
| 668 (ding nil 'y-or-n-p) | 668 (ding nil 'y-or-n-p) |
| 669 (ding)) | 669 (ding)) |
| 670 (discard-input) | 670 (discard-input) |
| 671 (if (eq p prompt) | 671 (if (eq p prompt) |
| 672 (setq p (concat "Try again. " prompt))))))) | 672 (setq p (concat "Try again. " prompt))))))) |
| 673 (and (fboundp 'deallocate-event) | 673 (if (fboundp 'deallocate-event) |
| 674 (deallocate-event event)) | 674 (deallocate-event event)) |
| 675 p)) | 675 p)) |
| 676 | 676 |
| 677 (defun sc-scan-info-alist (alist) | 677 (defun sc-scan-info-alist (alist) |
| 678 "Find a match in the info alist that matches a regexp in ALIST." | 678 "Find a match in the info alist that matches a regexp in ALIST." |
| 679 (let ((sc-mumble "") | 679 (let ((sc-mumble "") |
| 1515 (if (not (bobp)) | 1515 (if (not (bobp)) |
| 1516 (if (and (eolp) | 1516 (if (and (eolp) |
| 1517 (progn (forward-line -1) | 1517 (progn (forward-line -1) |
| 1518 (or (= (point) (mail-header-end)) | 1518 (or (= (point) (mail-header-end)) |
| 1519 (and (eq major-mode 'mh-letter-mode) | 1519 (and (eq major-mode 'mh-letter-mode) |
| 1520 (mh-in-header-p))))) | 1520 (with-no-warnings |
| 1521 (mh-in-header-p)))))) | |
| 1521 (progn (forward-line) | 1522 (progn (forward-line) |
| 1522 (let ((kill-lines-magic t)) | 1523 (let ((kill-lines-magic t)) |
| 1523 (kill-line)))))) | 1524 (kill-line)))))) |
| 1524 | 1525 |
| 1525 (defun sc-header-on-said () | 1526 (defun sc-header-on-said () |