[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.37 
emacs/lisp/progmodes/cperl-mode.el:1.38
*** emacs/lisp/progmodes/cperl-mode.el:1.37     Sat Jan 18 10:31:02 2003
--- emacs/lisp/progmodes/cperl-mode.el  Wed Jan 29 07:16:54 2003
***************
*** 2360,2366 ****
  Returns nil if line starts inside a string, t if in a comment.
  
  Will not correct the indentation for labels, but will correct it for braces
! and closing parentheses and brackets.."
    (save-excursion
      (if (or
         (and (memq (get-text-property (point) 'syntax-type)
--- 2360,2366 ----
  Returns nil if line starts inside a string, t if in a comment.
  
  Will not correct the indentation for labels, but will correct it for braces
! and closing parentheses and brackets."
    (save-excursion
      (if (or
         (and (memq (get-text-property (point) 'syntax-type)
***************
*** 6796,6804 ****
    "Do it.  (Experimental, may change semantics, recheck the result.)
  We suppose that the regexp is scanned already."
    (interactive "P")
!   (if deep
!       (prefix-numeric-value deep)
!     (setq deep -1))
    (save-excursion
      (goto-char (cperl-make-regexp-x))
      (let ((b (point)) (e (make-marker)))
--- 6796,6802 ----
    "Do it.  (Experimental, may change semantics, recheck the result.)
  We suppose that the regexp is scanned already."
    (interactive "P")
!   (setq deep (if deep (prefix-numeric-value deep) -1))
    (save-excursion
      (goto-char (cperl-make-regexp-x))
      (let ((b (point)) (e (make-marker)))
***************
*** 6871,6879 ****
  \(Experimental, may change semantics, recheck the result.)
  We suppose that the regexp is scanned already."
    (interactive "P")
!   (if deep
!       (prefix-numeric-value deep)
!     (setq deep -1))
    (save-excursion
      (cperl-regext-to-level-start)
      (let ((b (point)) (e (make-marker)))
--- 6869,6875 ----
  \(Experimental, may change semantics, recheck the result.)
  We suppose that the regexp is scanned already."
    (interactive "P")
!   (setq deep (if deep (prefix-numeric-value deep) -1))
    (save-excursion
      (cperl-regext-to-level-start)
      (let ((b (point)) (e (make-marker)))