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

[Richard M . Stallman]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.57 
emacs/lisp/progmodes/cperl-mode.el:1.58
*** emacs/lisp/progmodes/cperl-mode.el:1.57     Thu Nov 25 03:04:16 2004
--- emacs/lisp/progmodes/cperl-mode.el  Mon Dec 27 15:39:42 2004
***************
*** 6026,6032 ****
    (interactive)
    (let (found-bad (p (point)))
      (setq last-nonmenu-event 13)      ; To disable popup
!     (beginning-of-buffer)
      (map-y-or-n-p "Insert space here? "
                  (lambda (arg) (insert " "))
                  'cperl-next-bad-style
--- 6026,6033 ----
    (interactive)
    (let (found-bad (p (point)))
      (setq last-nonmenu-event 13)      ; To disable popup
!     (with-no-warnings  ; It is useful to push the mark here.
!      (beginning-of-buffer))
      (map-y-or-n-p "Insert space here? "
                  (lambda (arg) (insert " "))
                  'cperl-next-bad-style
***************
*** 7183,7195 ****
  ;;; Plug for wrong font-lock:
  
  (defun cperl-font-lock-unfontify-region-function (beg end)
!   (let* ((modified (buffer-modified-p)) (buffer-undo-list t)
!        (inhibit-read-only t) (inhibit-point-motion-hooks t)
!        before-change-functions after-change-functions
!        deactivate-mark buffer-file-name buffer-file-truename)
!     (remove-text-properties beg end '(face nil))
!     (when (and (not modified) (buffer-modified-p))
!       (set-buffer-modified-p nil))))
  
  (defvar cperl-d-l nil)
  (defun cperl-fontify-syntaxically (end)
--- 7184,7192 ----
  ;;; Plug for wrong font-lock:
  
  (defun cperl-font-lock-unfontify-region-function (beg end)
!   ;; Simplified now that font-lock-unfontify-region uses save-buffer-state.
!   (let (before-change-functions after-change-functions)
!     (remove-text-properties beg end '(face nil))))
  
  (defvar cperl-d-l nil)
  (defun cperl-fontify-syntaxically (end)