/[emacs]/emacs/lisp/progmodes/perl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/perl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by monnier, Wed Oct 31 02:42:54 2001 UTC revision 1.41 by rms, Wed Nov 21 11:01:55 2001 UTC
# Line 279  create a new comment." Line 279  create a new comment."
279    :group 'perl)    :group 'perl)
280    
281  ;;;###autoload  ;;;###autoload
282  (define-derived-mode perl-mode nil "Perl"  (defun perl-mode ()
283    "Major mode for editing Perl code.    "Major mode for editing Perl code.
284  Expression and list commands understand all Perl brackets.  Expression and list commands understand all Perl brackets.
285  Tab indents for Perl code.  Tab indents for Perl code.
# Line 326  Various indentation styles:       K&R  B Line 326  Various indentation styles:       K&R  B
326    perl-label-offset               -5   -8   -2   -2   -2    perl-label-offset               -5   -8   -2   -2   -2
327    
328  Turning on Perl mode runs the normal hook `perl-mode-hook'."  Turning on Perl mode runs the normal hook `perl-mode-hook'."
329      (interactive)
330      (kill-all-local-variables)
331      (use-local-map perl-mode-map)
332      (setq major-mode 'perl-mode)
333      (setq mode-name "Perl")
334      (setq local-abbrev-table perl-mode-abbrev-table)
335      (set-syntax-table perl-mode-syntax-table)
336    (make-local-variable 'paragraph-start)    (make-local-variable 'paragraph-start)
337    (setq paragraph-start (concat "$\\|" page-delimiter))    (setq paragraph-start (concat "$\\|" page-delimiter))
338    (make-local-variable 'paragraph-separate)    (make-local-variable 'paragraph-separate)
# Line 359  Turning on Perl mode runs the normal hoo Line 366  Turning on Perl mode runs the normal hoo
366    ;; Tell imenu how to handle Perl.    ;; Tell imenu how to handle Perl.
367    (make-local-variable 'imenu-generic-expression)    (make-local-variable 'imenu-generic-expression)
368    (setq imenu-generic-expression perl-imenu-generic-expression)    (setq imenu-generic-expression perl-imenu-generic-expression)
369    (setq imenu-case-fold-search nil))    (setq imenu-case-fold-search nil)
370      (run-hooks 'perl-mode-hook))
371    
372  ;; This is used by indent-for-comment  ;; This is used by indent-for-comment
373  ;; to decide how much to indent a comment in Perl code  ;; to decide how much to indent a comment in Perl code

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26