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

[Stefan Monnier]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.321 emacs/lisp/subr.el:1.322
*** emacs/lisp/subr.el:1.321    Sat Sep  7 18:50:44 2002
--- emacs/lisp/subr.el  Mon Sep  9 19:13:18 2002
***************
*** 919,932 ****
  either an absolute file name, or a library name
  \(with no directory name and no `.el' or `.elc' at the end).
  It can also be nil, if the definition is not associated with any file."
! ;;;  (load-symbol-file-load-history)
!   (let ((files load-history)
!       file functions)
!     (while files
!       (if (memq function (cdr (car files)))
!         (setq file (car (car files)) files nil))
!       (setq files (cdr files)))
!     file))
  
  
  ;;;; Specifying things to do after certain files are loaded.
--- 919,934 ----
  either an absolute file name, or a library name
  \(with no directory name and no `.el' or `.elc' at the end).
  It can also be nil, if the definition is not associated with any file."
!   (if (and (symbolp function) (fboundp function)
!          (eq 'autoload (car-safe (symbol-function function))))
!       (nth 1 (symbol-function function))
!     (let ((files load-history)
!         file functions)
!       (while files
!       (if (memq function (cdr (car files)))
!           (setq file (car (car files)) files nil))
!       (setq files (cdr files)))
!       file)))
  
  
  ;;;; Specifying things to do after certain files are loaded.
***************
*** 952,958 ****
              (featurep file)
            ;; Make sure `load-history' contains the files dumped with
            ;; Emacs for the case that FILE is one of them.
!           ;;; (load-symbol-file-load-history)
            (assoc file load-history))
          (eval form))))
    form)
--- 954,960 ----
              (featurep file)
            ;; Make sure `load-history' contains the files dumped with
            ;; Emacs for the case that FILE is one of them.
!           ;; (load-symbol-file-load-history)
            (assoc file load-history))
          (eval form))))
    form)
***************
*** 1861,1866 ****
--- 1863,1876 ----
    (let ((table (make-char-table 'syntax-table nil)))
      (set-char-table-parent table (or oldtable (standard-syntax-table)))
      table))
+ 
+ (defun syntax-after (pos)
+   "Return the syntax of the char after POS."
+   (unless (or (< pos (point-min)) (>= pos (point-max)))
+     (let ((st (if parse-sexp-lookup-properties
+                 (get-char-property pos 'syntax-table))))
+       (if (consp st) st
+       (aref (or st (syntax-table)) (char-after pos))))))
  
  (defun add-to-invisibility-spec (arg)
    "Add elements to `buffer-invisibility-spec'.