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

[Andreas Schwab]

Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.49 
emacs/lisp/emacs-lisp/easy-mmode.el:1.50
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.49    Thu May 29 17:54:35 2003
--- emacs/lisp/emacs-lisp/easy-mmode.el Sun Jun 22 12:55:47 2003
***************
*** 431,437 ****
    (let* ((base-name (symbol-name base))
         (prev-sym (intern (concat base-name "-prev")))
         (next-sym (intern (concat base-name "-next"))))
!     (unless name (setq name (symbol-name base-name)))
      `(progn
         (add-to-list 'debug-ignored-errors
                    ,(concat "^No \\(previous\\|next\\) " (regexp-quote name)))
--- 431,437 ----
    (let* ((base-name (symbol-name base))
         (prev-sym (intern (concat base-name "-prev")))
         (next-sym (intern (concat base-name "-next"))))
!     (unless name (setq name base-name))
      `(progn
         (add-to-list 'debug-ignored-errors
                    ,(concat "^No \\(previous\\|next\\) " (regexp-quote name)))
***************
*** 444,450 ****
           (if (not (re-search-forward ,re nil t count))
               (if (looking-at ,re)
                   (goto-char (or ,(if endfun `(,endfun)) (point-max)))
!                (error ,(format "No next %s" name)))
             (goto-char (match-beginning 0))
             (when (and (eq (current-buffer) (window-buffer (selected-window)))
                        (interactive-p))
--- 444,450 ----
           (if (not (re-search-forward ,re nil t count))
               (if (looking-at ,re)
                   (goto-char (or ,(if endfun `(,endfun)) (point-max)))
!                (error "No next %s" ,name))
             (goto-char (match-beginning 0))
             (when (and (eq (current-buffer) (window-buffer (selected-window)))
                        (interactive-p))
***************
*** 460,466 ****
         (unless count (setq count 1))
         (if (< count 0) (,next-sym (- count))
           (unless (re-search-backward ,re nil t count)
!            (error ,(format "No previous %s" name))))))))
  
  (provide 'easy-mmode)
  
--- 460,466 ----
         (unless count (setq count 1))
         (if (< count 0) (,next-sym (- count))
           (unless (re-search-backward ,re nil t count)
!            (error "No previous %s" ,name)))))))
  
  (provide 'easy-mmode)