Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents fe104dbd9147
children 59463afc5666
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
30 30
31 31
32 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu 32 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu
33 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de 33 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de
34 34
35 ;; $Id: cperl-mode.el,v 1.4 1997/03/16 03:05:17 steve Exp $ 35 ;; $Id: cperl-mode.el,v 1.5 1997/04/27 19:30:26 steve Exp $
36 36
37 ;;; To use this mode put the following into your .emacs file: 37 ;;; To use this mode put the following into your .emacs file:
38 38
39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) 39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
40 40
3755 (case-fold-search (eq system-type 'emx)) 3755 (case-fold-search (eq system-type 'emx))
3756 xs) 3756 xs)
3757 (save-excursion 3757 (save-excursion
3758 (cond (inbuffer nil) ; Already there 3758 (cond (inbuffer nil) ; Already there
3759 ((file-exists-p tags-file-name) 3759 ((file-exists-p tags-file-name)
3760 (visit-tags-table-buffer tags-file-name)) 3760 ;;(visit-tags-table-buffer tags-file-name))
3761 (visit-tags-table-buffer))
3761 (t (set-buffer (find-file-noselect tags-file-name)))) 3762 (t (set-buffer (find-file-noselect tags-file-name))))
3762 (cond 3763 (cond
3763 (dir 3764 (dir
3764 (cond ((eq erase 'ignore)) 3765 (cond ((eq erase 'ignore))
3765 (erase 3766 (erase