Function: cperl-msb-fix

cperl-msb-fix is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-msb-fix)

Documentation

Add perl files to msb menu, supposes that msb is already loaded.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-msb-fix ()
  "Add perl files to msb menu, supposes that msb is already loaded."
  (setq cperl-msb-fixed t)
  (let* ((l (length msb-menu-cond))
	 (last (nth (1- l) msb-menu-cond))
	 (precdr (nthcdr (- l 2) msb-menu-cond)) ; cdr of this is last
	 (handle (1- (nth 1 last))))
    (setcdr precdr (list
		    (list
		     '(memq major-mode '(cperl-mode perl-mode))
		     handle
		     "Perl Files (%d)")
		    last))))