Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
88bfa2e4
Commit
88bfa2e4
authored
Dec 09, 2007
by
Glenn Morris
Browse files
(declare-function): Add compatibility declaration.
(mm-append-to-file, w32-focus-frame): Declare as functions.
parent
d09ae6ca
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
0 deletions
+8
-0
lisp/gnus/gnus-util.el
lisp/gnus/gnus-util.el
+8
-0
No files found.
lisp/gnus/gnus-util.el
View file @
88bfa2e4
...
...
@@ -35,6 +35,9 @@
;;; Code:
;; For Emacs < 22.2.
(
eval-and-compile
(
unless
(
fboundp
'declare-function
)
(
defmacro
declare-function
(
&rest
r
))))
(
eval-when-compile
(
require
'cl
))
;; Fixme: this should be a gnus variable, not nnmail-.
...
...
@@ -987,6 +990,9 @@ with potentially long computations."
(
defvar
rmail-default-rmail-file
)
(
defvar
mm-text-coding-system
)
(
declare-function
mm-append-to-file
"mm-util"
(
start
end
filename
&optional
codesys
inhibit
))
(
defun
gnus-output-to-rmail
(
filename
&optional
ask
)
"Append the current article to an Rmail file named FILENAME."
(
require
'rmail
)
...
...
@@ -1515,6 +1521,8 @@ CHOICE is a list of the choice char and help message at IDX."
(
kill-buffer
buf
))
tchar
))
(
declare-function
w32-focus-frame
"../term/w32-win"
(
frame
))
(
defun
gnus-select-frame-set-input-focus
(
frame
)
"Select FRAME, raise it, and set input focus, if possible."
(
cond
((
featurep
'xemacs
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment