Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-ems.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:50:29 +0200 |
parents | 0293115a14e9 |
children | ec9a17fef872 |
comparison
equal
deleted
inserted
replaced
21:b88636d63495 | 22:8fc7fe29b841 |
---|---|
193 (point)) | 193 (point)) |
194 gnus-mouse-face-prop gnus-mouse-face) | 194 gnus-mouse-face-prop gnus-mouse-face) |
195 (insert " " gnus-tmp-subject-or-nil "\n")) | 195 (insert " " gnus-tmp-subject-or-nil "\n")) |
196 ))) | 196 ))) |
197 | 197 |
198 (defun gnus-region-active-p () | |
199 "Say whether the region is active." | |
200 (and (boundp 'transient-mark-mode) | |
201 transient-mark-mode | |
202 (boundp 'mark-active) | |
203 mark-active)) | |
198 | 204 |
199 (provide 'gnus-ems) | 205 (provide 'gnus-ems) |
200 | 206 |
201 ;; Local Variables: | 207 ;; Local Variables: |
202 ;; byte-compile-warnings: '(redefine callargs) | 208 ;; byte-compile-warnings: '(redefine callargs) |