From 73e72da43b94e48189a4ff9fe711d36c6593d8e1 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Tue, 27 Nov 2007 06:57:07 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 49 +++++++++++++++++++++++++++++++ lisp/mail/hashcash.el | 5 ++++ lisp/mail/rmail.el | 9 ++++++ lisp/mail/rmailkwd.el | 9 ++++++ lisp/mail/rmailsum.el | 7 +++++ lisp/mail/sendmail.el | 3 ++ lisp/mail/uce.el | 6 ++++ lisp/mail/vms-pmail.el | 1 + lisp/progmodes/cperl-mode.el | 10 +++++-- lisp/progmodes/idlw-complete-structtag.el | 2 ++ lisp/progmodes/idlw-help.el | 31 +++++++++++++++++++ lisp/progmodes/idlwave.el | 7 +++++ lisp/vc.el | 2 ++ lisp/vms-patch.el | 1 + lisp/vmsproc.el | 1 + src/ChangeLog | 5 ++++ src/Makefile.in | 2 +- 17 files changed, 146 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 46d7a065313..d139dc3d3ca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,52 @@ +2007-11-27 Dan Nicolaescu + + * 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 * eshell/eshell.el (eshell-report-bug): Add version number of diff --git a/lisp/mail/hashcash.el b/lisp/mail/hashcash.el index 737178b8218..22005ce957e 100644 --- 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 f011621930a..7beb8c0516c 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1519,6 +1519,15 @@ original copy." ;;;; *** 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 c479e35beb7..48e2246520b 100644 --- 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 fd5931fdef9..cde289ed719 100644 --- 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 f348624d120..da1c5c48989 100644 --- 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 035ab0d774c..5a4e01ae9fc 100644 --- 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 022a8070a2e..9785fed71e6 100644 --- 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 13f1e0c24b8..4a397a9d012 100644 --- 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 d005c6de63e..e88041423f1 100644 --- 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 b599baa2893..cd83a7ba55c 100644 --- 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 abe5cfe6489..4e71b2e13b7 100644 --- 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 0942392a49d..74e949a4a3c 100644 --- 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 39cec28d88d..82d248f2373 100644 --- 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 92df327dde1..136d2913975 100644 --- 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 21e69f91c8e..ff1d631cfd2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2007-11-27 Dan Nicolaescu + + * Makefile.in (SOME_MACHINE_LISP): Remove VMS files, they are not + compiled anymore. + 2007-11-26 Andreas Schwab * process.c (list_processes_1): Fix indentation level of the diff --git a/src/Makefile.in b/src/Makefile.in index cb183e6bbf2..b171fbf8e82 100644 --- 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 \ -- 2.11.4.GIT