[Emacs-diffs] Changes to emacs/lisp/ses.el

[Jonathan Yavner]

Index: emacs/lisp/ses.el
diff -c emacs/lisp/ses.el:1.14 emacs/lisp/ses.el:1.15
*** emacs/lisp/ses.el:1.14      Mon Jan 31 22:47:40 2005
--- emacs/lisp/ses.el   Sun Feb 20 05:02:54 2005
***************
*** 1281,1314 ****
  
  ;; This should be unnecessary, because the feature is now built in.
  
! ;;; (defadvice undo-more (around ses-undo-more activate preactivate)
! ;;;   "Define a meaning for conses in buffer-undo-list whose car is a symbol
! ;;; other than t or nil.  To undo these, apply the car--a function--to the
! ;;; cdr--its arglist."
! ;;;   (let ((ses-count (ad-get-arg 0)))
! ;;;     (catch 'undo
! ;;;       (dolist (ses-x pending-undo-list)
! ;;;   (unless ses-x
! ;;;     ;;End of undo boundary
! ;;;     (setq ses-count (1- ses-count))
! ;;;     (if (<= ses-count 0)
! ;;;         ;;We've seen enough boundaries - stop undoing
! ;;;         (throw 'undo nil)))
! ;;;   (and (consp ses-x) (symbolp (car ses-x)) (fboundp (car ses-x))
! ;;;        ;;Undo using apply
! ;;;        (apply (car ses-x) (cdr ses-x)))))
! ;;;     (if (not (eq major-mode 'ses-mode))
! ;;;   ad-do-it
! ;;;       ;;Here is some extra code for SES mode.
! ;;;       (setq ses--deferred-narrow
! ;;;       (or ses--deferred-narrow (ses-narrowed-p)))
! ;;;       (widen)
! ;;;       (condition-case x
! ;;;     ad-do-it
! ;;;   (error
! ;;;    ;;Restore narrow if appropriate
! ;;;    (ses-command-hook)
! ;;;    (signal (car x) (cdr x)))))))
  
  (defun ses-begin-change ()
    "For undo, remember point before we start changing hidden stuff."
--- 1281,1300 ----
  
  ;; This should be unnecessary, because the feature is now built in.
  
! (defadvice undo-more (around ses-undo-more activate preactivate)
!   "For SES mode, allow undo outside of narrowed buffer range."
!   (if (not (eq major-mode 'ses-mode))
!       ad-do-it
!     ;;Here is some extra code for SES mode.
!     (setq ses--deferred-narrow
!         (or ses--deferred-narrow (ses-narrowed-p)))
!     (widen)
!     (condition-case x
!       ad-do-it
!       (error
!        ;;Restore narrow if appropriate
!        (ses-command-hook)
!        (signal (car x) (cdr x))))))
  
  (defun ses-begin-change ()
    "For undo, remember point before we start changing hidden stuff."