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

[Richard M . Stallman]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.435 emacs/lisp/subr.el:1.436
*** emacs/lisp/subr.el:1.435    Sat Feb 19 18:54:17 2005
--- emacs/lisp/subr.el  Wed Feb 23 21:04:14 2005
***************
*** 1969,1981 ****
            (re-search-forward "\\(\\sw\\|\\s_\\)+"
                               (save-excursion (end-of-line) (point))
                               t))
!       (progn (goto-char (match-end 0))
!              (buffer-substring-no-properties
!                 (point)
!                 (progn (forward-sexp -1)
!                        (while (looking-at "\\s'")
!                          (forward-char 1))
!                        (point))))
        nil)))
  
  (defmacro with-syntax-table (table &rest body)
--- 1969,1984 ----
            (re-search-forward "\\(\\sw\\|\\s_\\)+"
                               (save-excursion (end-of-line) (point))
                               t))
!       (progn
!         (goto-char (match-end 0))
!         (condition-case nil
!             (buffer-substring-no-properties
!              (point)
!              (progn (forward-sexp -1)
!                     (while (looking-at "\\s'")
!                       (forward-char 1))
!                     (point)))
!           (error nil)))
        nil)))
  
  (defmacro with-syntax-table (table &rest body)