diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-06-25 11:31:36 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-06-25 11:31:36 -0700 |
| commit | 948b98fd3c17e56b5fa606eedbe6487091f2b66d (patch) | |
| tree | 470d98f5aa36d512902da3db4d9f35b3c0fe6f07 /lisp/progmodes/cperl-mode.el | |
| parent | 7a7ef429182915745380c3074771d9f747dab964 (diff) | |
| parent | 11fdef7d0cf3ef1ce30d1cd09ca9ca9a2b099d20 (diff) | |
| download | emacs-948b98fd3c17e56b5fa606eedbe6487091f2b66d.tar.gz | |
Merge from trunk.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 2cce5e13fb0..8eb2d01c097 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -8971,18 +8971,6 @@ do extra unwind via `cperl-unwind-to-safe'." (substring v (match-beginning 1) (match-end 1))) "Version of IZ-supported CPerl package this file is based on.") -(defun cperl-mode-unload-function () - "Unload the Cperl mode library." - (let ((new-mode (if (eq (symbol-function 'perl-mode) 'cperl-mode) - 'fundamental-mode - 'perl-mode))) - (dolist (buf (buffer-list)) - (with-current-buffer buf - (when (eq major-mode 'cperl-mode) - (funcall new-mode))))) - ;; continue standard unloading - nil) - (provide 'cperl-mode) ;;; cperl-mode.el ends here |