Commit 1eb6c5b8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(sc-ask, sc-no-blank-line-or-header): Avoid warnings.

parent 9c6f79c2
......@@ -643,8 +643,8 @@ the list should be unique."
(prog1 quit-flag (setq quit-flag nil)))
(progn
(message "%s%s" p (single-key-description event))
(and (fboundp 'deallocate-event)
(deallocate-event event))
(if (fboundp 'deallocate-event)
(deallocate-event event))
(setq quit-flag nil)
(signal 'quit '())))
(let ((char
......@@ -659,8 +659,8 @@ the list should be unique."
((setq elt (rassq char alist))
(message "%s%s" p (car elt))
(setq p (cdr elt)))
((and (fboundp 'button-release-event-p)
(button-release-event-p event)) ; ignore them
((if (fboundp 'button-release-event-p)
(button-release-event-p event)) ; ignore them
nil)
(t
(message "%s%s" p (single-key-description event))
......@@ -670,8 +670,8 @@ the list should be unique."
(discard-input)
(if (eq p prompt)
(setq p (concat "Try again. " prompt)))))))
(and (fboundp 'deallocate-event)
(deallocate-event event))
(if (fboundp 'deallocate-event)
(deallocate-event event))
p))
(defun sc-scan-info-alist (alist)
......@@ -1517,7 +1517,8 @@ non-nil."
(progn (forward-line -1)
(or (= (point) (mail-header-end))
(and (eq major-mode 'mh-letter-mode)
(mh-in-header-p)))))
(with-no-warnings
(mh-in-header-p))))))
(progn (forward-line)
(let ((kill-lines-magic t))
(kill-line))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment