Mercurial > emacs
comparison lisp/progmodes/cperl-mode.el @ 86503:2c08ad76fc1f
* 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.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Tue, 27 Nov 2007 06:57:07 +0000 |
parents | 29e75576e47f |
children | e50a2e215441 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
86502:1f48ff31771c | 86503:2c08ad76fc1f |
---|---|
1508 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS). | 1508 ;; This look like a paranoiac regexp: could anybody find a better one? (which WORKS). |
1509 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]" | 1509 '(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]" |
1510 2 3)) | 1510 2 3)) |
1511 "Alist that specifies how to match errors in perl output.") | 1511 "Alist that specifies how to match errors in perl output.") |
1512 | 1512 |
1513 (defvar compilation-error-regexp-alist) | |
1514 | |
1513 ;;;###autoload | 1515 ;;;###autoload |
1514 (defun cperl-mode () | 1516 (defun cperl-mode () |
1515 "Major mode for editing Perl code. | 1517 "Major mode for editing Perl code. |
1516 Expression and list commands understand all C brackets. | 1518 Expression and list commands understand all C brackets. |
1517 Tab indents for Perl code. | 1519 Tab indents for Perl code. |
1788 (set 'vc-rcs-header cperl-vc-rcs-header) | 1790 (set 'vc-rcs-header cperl-vc-rcs-header) |
1789 (make-local-variable 'vc-sccs-header) | 1791 (make-local-variable 'vc-sccs-header) |
1790 (set 'vc-sccs-header cperl-vc-sccs-header) | 1792 (set 'vc-sccs-header cperl-vc-sccs-header) |
1791 ;; This one is obsolete... | 1793 ;; This one is obsolete... |
1792 (make-local-variable 'vc-header-alist) | 1794 (make-local-variable 'vc-header-alist) |
1793 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning | 1795 (with-no-warnings |
1794 `((SCCS ,(car cperl-vc-sccs-header)) | 1796 (set 'vc-header-alist (or cperl-vc-header-alist ; Avoid warning |
1795 (RCS ,(car cperl-vc-rcs-header))))) | 1797 `((SCCS ,(car cperl-vc-sccs-header)) |
1798 (RCS ,(car cperl-vc-rcs-header))))) | |
1799 ) | |
1796 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x | 1800 (cond ((boundp 'compilation-error-regexp-alist-alist);; xemacs 20.x |
1797 (make-local-variable 'compilation-error-regexp-alist-alist) | 1801 (make-local-variable 'compilation-error-regexp-alist-alist) |
1798 (set 'compilation-error-regexp-alist-alist | 1802 (set 'compilation-error-regexp-alist-alist |
1799 (cons (cons 'cperl (car cperl-compilation-error-regexp-alist)) | 1803 (cons (cons 'cperl (car cperl-compilation-error-regexp-alist)) |
1800 (symbol-value 'compilation-error-regexp-alist-alist))) | 1804 (symbol-value 'compilation-error-regexp-alist-alist))) |