* progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify

byte compiler.
(cperl-mode): Use with-no-warnings for setting vc-header-alist.

* progmodes/idlwave.el (idlwave-shell-get-path-info)
(idlwave-shell-temp-file, idlwave-shell-is-running)
(widget-value, comint-dynamic-complete-filename, Info-goto-node):
* progmodes/idlw-help.el (idlwave-prepare-structure-tag-completion)
(idlwave-all-method-classes, idlwave-all-method-keyword-classes)
(idlwave-beginning-of-statement, idlwave-best-rinfo-assoc)
(idlwave-class-found-in, idlwave-class-or-superclass-with-tag)
(idlwave-completing-read, idlwave-current-routine)
(idlwave-downcase-safe, idlwave-entry-find-keyword)
(idlwave-expand-keyword, idlwave-find-class-definition)
(idlwave-find-inherited-class, idlwave-find-struct-tag)
(idlwave-get-buffer-visiting, idlwave-in-quote)
(idlwave-make-full-name, idlwave-members-only)
(idlwave-popup-select, idlwave-routine-source-file)
(idlwave-routines, idlwave-sintern-class)
(idlwave-sintern-keyword, idlwave-sintern-method)
(idlwave-sintern-routine-or-method)
(idlwave-substitute-link-target, idlwave-sys-dir)
(idlwave-this-word, idlwave-what-module-find-class)
(idlwave-where):
* progmodes/idlw-complete-structtag.el (idlwave-shell-buffer):
* mail/uce.el (rmail-msg-is-pruned)
(rmail-maybe-set-message-counters, rmail-msgbeg, rmail-msgend)
(rmail-toggle-header):
* mail/sendmail.el (dired-view-file, dired-get-filename):
* mail/rmailkwd.el (rmail-maybe-set-message-counters)
(rmail-display-labels, rmail-msgbeg)
(rmail-set-message-deleted-p, rmail-message-labels-p)
(rmail-show-message, mail-comma-list-regexp)
(mail-parse-comma-list):
* mail/rmail.el (rmail-spam-filter, rmail-summary-goto-msg)
(rmail-summary-mark-undeleted, rmail-summary-mark-deleted)
(rfc822-addresses, mail-abbrev-make-syntax-table)
(mail-sendmail-delimit-header, mail-header-end):
* mail/hashcash.el (message-narrow-to-headers-or-head)
(message-fetch-field, message-goto-eoh)
(message-narrow-to-headers):
* vc.el (view-mode-exit): Declare as functions.

* mail/vms-pmail.el:
* vmsproc.el:
* vms-patch.el: Don't byte compile these files, they don't work.

* Makefile.in (SOME_MACHINE_LISP): Remove VMS files, they are not
compiled anymore.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46d7a065313dc7b0462e9ad625fc687a4ec8fa60..d139dc3d3caa34e49003fb4342547ad8512f62a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,52 @@
+2007-11-27  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
+       byte compiler.
+       (cperl-mode): Use with-no-warnings for setting vc-header-alist.
+
+       * progmodes/idlwave.el (idlwave-shell-get-path-info)
+       (idlwave-shell-temp-file, idlwave-shell-is-running)
+       (widget-value, comint-dynamic-complete-filename, Info-goto-node):
+       * progmodes/idlw-help.el (idlwave-prepare-structure-tag-completion)
+       (idlwave-all-method-classes, idlwave-all-method-keyword-classes)
+       (idlwave-beginning-of-statement, idlwave-best-rinfo-assoc)
+       (idlwave-class-found-in, idlwave-class-or-superclass-with-tag)
+       (idlwave-completing-read, idlwave-current-routine)
+       (idlwave-downcase-safe, idlwave-entry-find-keyword)
+       (idlwave-expand-keyword, idlwave-find-class-definition)
+       (idlwave-find-inherited-class, idlwave-find-struct-tag)
+       (idlwave-get-buffer-visiting, idlwave-in-quote)
+       (idlwave-make-full-name, idlwave-members-only)
+       (idlwave-popup-select, idlwave-routine-source-file)
+       (idlwave-routines, idlwave-sintern-class)
+       (idlwave-sintern-keyword, idlwave-sintern-method)
+       (idlwave-sintern-routine-or-method)
+       (idlwave-substitute-link-target, idlwave-sys-dir)
+       (idlwave-this-word, idlwave-what-module-find-class)
+       (idlwave-where):
+       * progmodes/idlw-complete-structtag.el (idlwave-shell-buffer):
+       * mail/uce.el (rmail-msg-is-pruned)
+       (rmail-maybe-set-message-counters, rmail-msgbeg, rmail-msgend)
+       (rmail-toggle-header):
+       * mail/sendmail.el (dired-view-file, dired-get-filename):
+       * mail/rmailkwd.el (rmail-maybe-set-message-counters)
+       (rmail-display-labels, rmail-msgbeg)
+       (rmail-set-message-deleted-p, rmail-message-labels-p)
+       (rmail-show-message, mail-comma-list-regexp)
+       (mail-parse-comma-list):
+       * mail/rmail.el (rmail-spam-filter, rmail-summary-goto-msg)
+       (rmail-summary-mark-undeleted, rmail-summary-mark-deleted)
+       (rfc822-addresses, mail-abbrev-make-syntax-table)
+       (mail-sendmail-delimit-header, mail-header-end):
+       * mail/hashcash.el (message-narrow-to-headers-or-head)
+       (message-fetch-field, message-goto-eoh)
+       (message-narrow-to-headers):
+       * vc.el (view-mode-exit): Declare as functions.
+
+       * mail/vms-pmail.el:
+       * vmsproc.el:
+       * vms-patch.el: Don't byte compile these files, they don't work.
+
 2007-11-27  Glenn Morris  <rgm@gnu.org>
 
        * eshell/eshell.el (eshell-report-bug): Add version number of

diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el
index 737178b821889b842e0d87e9da018a3333228793..22005ce957ed48e1e1e719d54b2e2864ce73ac56 100644 (file)
--- a/lisp/mail/hashcash.el
+++ b/lisp/mail/hashcash.el
@@ -126,6 +126,11 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length."
       (concat (match-string 1 addr) (match-string 2 addr))
     addr))
 
+(declare-function  message-narrow-to-headers-or-head "message" ())
+(declare-function  message-fetch-field "message" (header &optional not-all))
+(declare-function  message-goto-eoh "message" ())
+(declare-function  message-narrow-to-headers "message" ())
+
 (defun hashcash-token-substring ()
   (save-excursion
     (let ((token ""))

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index f011621930a707464fbb61915e8f1df189a635bc..7beb8c0516c788f1ccbe38e5f6f8fe7e69782a8b 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1519,6 +1519,15 @@ original copy."
 \f
 ;;;; *** Rmail input ***
 
+(declare-function rmail-spam-filter "rmail-spam-filter" (msg))
+(declare-function rmail-summary-goto-msg "rmailsum" (&optional n nowarn skip-rmail))
+(declare-function rmail-summary-mark-undeleted "rmailsum" (n))
+(declare-function rmail-summary-mark-deleted "rmailsum" (&optional n undel))
+(declare-function rfc822-addresses "rfc822" (header-text))
+(declare-function mail-abbrev-make-syntax-table "mailabbrev.el" ())
+(declare-function mail-sendmail-delimit-header "sendmail" ())
+(declare-function mail-header-end "sendmail" ())
+
 ;; RLK feature not added in this version:
 ;; argument specifies inbox file or files in various ways.
 

diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el
index c479e35beb7e486a7fbc196b6a50681ab0a20921..48e2246520bd8b5511de68059846668311b34f25 100644 (file)
--- a/lisp/mail/rmailkwd.el
+++ b/lisp/mail/rmailkwd.el
@@ -86,6 +86,15 @@ Completion is performed over known labels when reading."
          rmail-last-label
        (setq rmail-last-label (rmail-make-label result t))))))
 
+(declare-function rmail-maybe-set-message-counters "rmail" ())
+(declare-function rmail-display-labels "rmail" ())
+(declare-function rmail-msgbeg "rmail" (n))
+(declare-function rmail-set-message-deleted-p "rmail" (n state))
+(declare-function rmail-message-labels-p "rmail" (msg labels))
+(declare-function rmail-show-message "rmail" (&optional n no-summary))
+(declare-function mail-comma-list-regexp "mail-utils" (labels))
+(declare-function mail-parse-comma-list "mail-utils.el" ())
+
 (defun rmail-set-label (l state &optional n)
   (with-current-buffer rmail-buffer
     (rmail-maybe-set-message-counters)

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index fd5931fdef9ab6f84bb7db1196c892830756fd4c..cde289ed719c55e124ac33559d3062ca63f32223 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1323,6 +1323,13 @@ argument says to read a file name and use that file as the inbox."
     (end-of-buffer))
   (forward-line -1))
 
+(declare-function rmail-abort-edit "rmailedit" ())
+(declare-function rmail-cease-edit "rmailedit"())
+(declare-function rmail-set-label "rmailkwd" (l state &optional n))
+(declare-function rmail-output-read-file-name "rmailout" ())
+(declare-function rmail-output-read-rmail-file-name  "rmailout" ())
+(declare-function mail-send-and-exit "sendmail" (&optional arg))
+
 (defvar rmail-summary-edit-map nil)
 (if rmail-summary-edit-map
     nil

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index f348624d12033ad6a72de7754fd3adfa6a39bada..da1c5c48989d112d0efbabf55562354b3e0aa523 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1744,6 +1744,9 @@ The seventh argument ACTIONS is a list of actions to take
        (message "Auto save file for draft message exists; consider M-x mail-recover"))
     initialized))
 
+(declare-function dired-view-file "dired" ())
+(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
+
 (defun mail-recover-1 ()
   "Pop up a list of auto-saved draft messages so you can recover one of them."
   (interactive)

diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 035ab0d774ccebd7bdf3e3bdaae3a22efd796037..5a4e01ae9fc3cfc5bdf211034e5177bbe914e3e4 100644 (file)
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -218,6 +218,12 @@ These are mostly meant for headers that prevent delivery errors reporting."
   :group 'uce)
 
 (declare-function mail-strip-quoted-names "mail-utils" (address))
+(declare-function rmail-msg-is-pruned "rmail" ())
+(declare-function rmail-maybe-set-message-counters "rmail" ())
+(declare-function rmail-msgbeg "rmail" (n))
+(declare-function rmail-msgend "rmail" (n))
+(declare-function rmail-toggle-header "rmail" (&optional arg))
+
 
 (defun uce-reply-to-uce (&optional ignored)
   "Send reply to UCE in Rmail.

diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el
index 022a8070a2ede9f3d1ad4d0f0a9520717fc4f0c6..9785fed71e6c9aa9d5559fd1844f1a2111533d1d 100644 (file)
--- a/lisp/mail/vms-pmail.el
+++ b/lisp/mail/vms-pmail.el
@@ -1,3 +1,4 @@
+;; -*- no-byte-compile: t -*-
 ;;; vms-pmail.el --- use Emacs as the editor within VMS mail
 
 ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 13f1e0c24b82664bf581884e08d15f1778938894..4a397a9d0124be9cc0e5b3a1f9685b5d64b791d1 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1510,6 +1510,8 @@ the last)."
      2 3))
   "Alist that specifies how to match errors in perl output.")
 
+(defvar compilation-error-regexp-alist)
+
 ;;;###autoload
 (defun cperl-mode ()
   "Major mode for editing Perl code.
@@ -1790,9 +1792,11 @@ or as help on variables `cperl-tips', `cperl-problems',
   (set 'vc-sccs-header cperl-vc-sccs-header)
   ;; This one is obsolete...
   (make-local-variable 'vc-header-alist)
-  (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
-                           `((SCCS ,(car cperl-vc-sccs-header))
-                              (RCS ,(car cperl-vc-rcs-header)))))
+  (with-no-warnings
+   (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning
+                            `((SCCS ,(car cperl-vc-sccs-header))
+                              (RCS ,(car cperl-vc-rcs-header)))))
+   )
   (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x
         (make-local-variable 'compilation-error-regexp-alist-alist)
         (set 'compilation-error-regexp-alist-alist

diff --git a/lisp/progmodes/idlw-complete-structtag.el b/lisp/progmodes/idlw-complete-structtag.el
index d005c6de63e5bdae5360db90d13c7da08dc7f490..e88041423f1f68297869522b35cad88a8bbfc21e 100644 (file)
--- a/lisp/progmodes/idlw-complete-structtag.el
+++ b/lisp/progmodes/idlw-complete-structtag.el
@@ -91,6 +91,8 @@
 
 (require 'idlwave)
 
+(declare-function idlwave-shell-buffer "idlw-shell")
+
 ;; Some variables to identify the previously used structure
 (defvar idlwave-current-tags-var nil)
 (defvar idlwave-current-tags-buffer nil)

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index b599baa28938837d92588007d55a2ba463949684..cd83a7ba55c71da18aab9c1118a54487715bd07f 100644 (file)
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -255,6 +255,37 @@ support."
 (defvar idlwave-help-def-pos)
 (defvar idlwave-help-args)
 (defvar idlwave-help-in-header)
+(declare-function idlwave-prepare-structure-tag-completion "idlw-complete-structtag")
+(declare-function idlwave-all-method-classes "idlwave")
+(declare-function idlwave-all-method-keyword-classes "idlwave")
+(declare-function idlwave-beginning-of-statement "idlwave")
+(declare-function idlwave-best-rinfo-assoc "idlwave")
+(declare-function idlwave-class-found-in "idlwave")
+(declare-function idlwave-class-or-superclass-with-tag "idlwave")
+(declare-function idlwave-completing-read "idlwave")
+(declare-function idlwave-current-routine "idlwave")
+(declare-function idlwave-downcase-safe "idlwave")
+(declare-function idlwave-entry-find-keyword "idlwave")
+(declare-function idlwave-expand-keyword "idlwave")
+(declare-function idlwave-find-class-definition "idlwave")
+(declare-function idlwave-find-inherited-class "idlwave")
+(declare-function idlwave-find-struct-tag "idlwave")
+(declare-function idlwave-get-buffer-visiting "idlwave")
+(declare-function idlwave-in-quote "idlwave")
+(declare-function idlwave-make-full-name "idlwave")
+(declare-function idlwave-members-only "idlwave")
+(declare-function idlwave-popup-select "idlwave")
+(declare-function idlwave-routine-source-file "idlwave")
+(declare-function idlwave-routines "idlwave")
+(declare-function idlwave-sintern-class "idlwave")
+(declare-function idlwave-sintern-keyword "idlwave")
+(declare-function idlwave-sintern-method "idlwave")
+(declare-function idlwave-sintern-routine-or-method "idlwave")
+(declare-function idlwave-substitute-link-target "idlwave")
+(declare-function idlwave-sys-dir "idlwave")
+(declare-function idlwave-this-word "idlwave")
+(declare-function idlwave-what-module-find-class "idlwave")
+(declare-function idlwave-where "idlwave")
 
 (defun idlwave-help-mode ()
   "Major mode for displaying IDL Help.

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index abe5cfe648912bee4545a7dea0ba9bc09be2bd80..4e71b2e13b7c3d0b202927c286554899641c25c7 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -182,6 +182,13 @@
     (defmacro defcustom (var value doc &rest args)
       `(defvar ,var ,value ,doc))))
 
+(declare-function idlwave-shell-get-path-info "idlw-shell")
+(declare-function idlwave-shell-temp-file "idlw-shell")
+(declare-function idlwave-shell-is-running "idlw-shell")
+(declare-function widget-value "wid-edit" (widget))
+(declare-function comint-dynamic-complete-filename "comint" ())
+(declare-function Info-goto-node "info" (nodename &optional fork))
+
 (defgroup idlwave nil
   "Major mode for editing IDL .pro files."
   :tag "IDLWAVE"

diff --git a/lisp/vc.el b/lisp/vc.el
index 0942392a49d5bb1e75354730f2d98a1527e2f3e8..74e949a4a3cd8b0278e565662903d020e30a1fa2 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1598,6 +1598,8 @@ first backend that could register the file is used."
   (let ((vc-handled-backends (list backend)))
     (call-interactively 'vc-register)))
 
+(declare-function view-mode-exit "view" (&optional return-to-alist exit-action all-win))
+
 (defun vc-resynch-window (file &optional keep noquery)
   "If FILE is in the current buffer, either revert or unvisit it.
 The choice between revert (to see expanded keywords) and unvisit depends on

diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 39cec28d88d2f83f9b1fd5922492a7900e9091f7..82d248f237358e4cd05ed467036e41dc28bf0b8f 100644 (file)
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -1,3 +1,4 @@
+;; -*- no-byte-compile: t -*-
 ;;; vms-patch.el --- override parts of files.el for VMS
 
 ;; Copyright (C) 1986, 1992, 2001, 2002, 2003, 2004,

diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el
index 92df327dde1c098fb88509302d795212c29e852e..136d2913975af00f09ff849f6e1fa31a3253d180 100644 (file)
--- a/lisp/vmsproc.el
+++ b/lisp/vmsproc.el
@@ -1,3 +1,4 @@
+;; -*- no-byte-compile: t -*-
 ;;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs
 
 ;; Copyright (C) 1986, 2001, 2002, 2003, 2004, 2005,

diff --git a/src/ChangeLog b/src/ChangeLog
index 21e69f91c8e9163a8e4ce697fbcc752e4dd07562..ff1d631cfd2486dd13eff10d50f3f505aeb69017 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-27  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * Makefile.in (SOME_MACHINE_LISP): Remove VMS files, they are not
+       compiled anymore.
+
 2007-11-26  Andreas Schwab  <schwab@suse.de>
 
        * process.c (list_processes_1): Fix indentation level of the

diff --git a/src/Makefile.in b/src/Makefile.in
index cb183e6bbf2964d8f9ed110e9d086b12fa6e7add..b171fbf8e821dd2d4eb501bf5f9726d4d2d94921 100644 (file)
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -920,7 +920,7 @@ shortlisp= \
    for the sake of systems which can''t handle large ones.  */
 SOME_MACHINE_LISP = ${dotdot}/lisp/mouse.elc \
   ${dotdot}/lisp/select.elc ${dotdot}/lisp/scroll-bar.elc \
-  ${dotdot}/lisp/vmsproc.elc ${dotdot}/lisp/vms-patch.elc \
+  VMS_SUPPORT \
   ${dotdot}/lisp/ls-lisp.elc ${dotdot}/lisp/dos-fns.elc \
   ${dotdot}/lisp/w32-fns.elc ${dotdot}/lisp/dos-w32.elc \
   ${dotdot}/lisp/disp-table.elc ${dotdot}/lisp/dos-vars.elc \