scop  committed d73354e

Sync cperl-mode.el with upstream 6.1.

  • Participants
  • Parent commits a1cdd36
  • Branches default

Comments (0)

Files changed (2)

+2008-04-03  Ville Skyttä  <>
+	* cperl-mode.el: Sync with upstream version 6.1; all our changes
+	except for one tiny auto-autoloads bit are now included upstream.
 2008-04-01  Norbert Koch  <>
 	* Makefile (VERSION): XEmacs package 1.12 released.

File cperl-mode.el

 ;;     Free Software Foundation, Inc.
 ;; Author: Ilya Zakharevich and Bob Olson
-;; Maintainer: XEmacs Development Team <>
+;; Maintainer: Ilya Zakharevich <>
 ;; Keywords: languages, Perl
 ;; This file is part of GNU Emacs.
 ;;; `cperl-highlight-charclass': New subst
 ;;; `cperl-tips-faces'		Correct literal backwacks, mention multipliers
+;;; After 6.0:
+;;;; Incorporate XEmacs changes:
+;;; `cperl-mode-map':		Bind 'delete 'backspace on XEmacs
+;;; `cperl-electric-delete':	New (unsupported) function for XEmacs bindings
+;;; toplevel:			Define obsolete alias for `pod-spell'
+;;;				autoload updates to `mode-alist's
 ;;; Code:
 (if (fboundp 'eval-when-compile)
 	(skip-chars-backward " \t\n")
 	(delete-region (point) p))
     (if (fboundp 'backward-or-forward-delete-char)
-	(backward-or-forward-delete-char arg)
+	(let ((f 'backward-or-forward-delete-char))
+	  (funcall f arg))		; Avoid "not defined"
       (backward-delete-char-untabify arg))))
 (defun cperl-inside-parens-p ()		;; NOT USED????
 	     (delete-char -1))))))
 ;; Stolen from lisp-mode with a lot of improvements
 (defun cperl-fill-paragraph (&optional justify iteration)
   "Like \\[fill-paragraph], but handle CPerl comments.
 If any of the current line is a comment, fill the comment or the
     (substring v (match-beginning 1) (match-end 1)))
   "Version of IZ-supported CPerl package this file is based on.")
-;; XEmacs addition: backwards compatibility for our old POD spelling stuff
-(define-obsolete-function-alias 'pod-spell 'cperl-pod-spell)
+(if cperl-xemacs-p ;; backwards compatibility for XEmacs old POD spelling stuff
+    (let ((f 'define-obsolete-function-alias))
+      (funcall f 'pod-spell 'cperl-pod-spell)))		; Avoid "not defined"
 ;; XEmacs additions
 ;;;###autoload(add-to-list 'auto-mode-alist '("\\.\\([pP][LlMm]\\|al\\)\\'" . perl-mode))