/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.321 by kfstorm, Sat Sep 7 22:50:44 2002 UTC revision 1.322 by monnier, Mon Sep 9 23:13:18 2002 UTC
# Line 919  The value is normally a string that was Line 919  The value is normally a string that was
919  either an absolute file name, or a library name  either an absolute file name, or a library name
920  \(with no directory name and no `.el' or `.elc' at the end).  \(with no directory name and no `.el' or `.elc' at the end).
921  It can also be nil, if the definition is not associated with any file."  It can also be nil, if the definition is not associated with any file."
922  ;;;  (load-symbol-file-load-history)    (if (and (symbolp function) (fboundp function)
923    (let ((files load-history)             (eq 'autoload (car-safe (symbol-function function))))
924          file functions)        (nth 1 (symbol-function function))
925      (while files      (let ((files load-history)
926        (if (memq function (cdr (car files)))            file functions)
927            (setq file (car (car files)) files nil))        (while files
928        (setq files (cdr files)))          (if (memq function (cdr (car files)))
929      file))              (setq file (car (car files)) files nil))
930            (setq files (cdr files)))
931          file)))
932    
933    
934  ;;;; Specifying things to do after certain files are loaded.  ;;;; Specifying things to do after certain files are loaded.
# Line 952  evaluated whenever that feature is `prov Line 954  evaluated whenever that feature is `prov
954                (featurep file)                (featurep file)
955              ;; Make sure `load-history' contains the files dumped with              ;; Make sure `load-history' contains the files dumped with
956              ;; Emacs for the case that FILE is one of them.              ;; Emacs for the case that FILE is one of them.
957              ;;; (load-symbol-file-load-history)              ;; (load-symbol-file-load-history)
958              (assoc file load-history))              (assoc file load-history))
959            (eval form))))            (eval form))))
960    form)    form)
# Line 1862  from `standard-syntax-table' otherwise." Line 1864  from `standard-syntax-table' otherwise."
1864      (set-char-table-parent table (or oldtable (standard-syntax-table)))      (set-char-table-parent table (or oldtable (standard-syntax-table)))
1865      table))      table))
1866    
1867    (defun syntax-after (pos)
1868      "Return the syntax of the char after POS."
1869      (unless (or (< pos (point-min)) (>= pos (point-max)))
1870        (let ((st (if parse-sexp-lookup-properties
1871                      (get-char-property pos 'syntax-table))))
1872          (if (consp st) st
1873            (aref (or st (syntax-table)) (char-after pos))))))
1874    
1875  (defun add-to-invisibility-spec (arg)  (defun add-to-invisibility-spec (arg)
1876    "Add elements to `buffer-invisibility-spec'.    "Add elements to `buffer-invisibility-spec'.
1877  See documentation for `buffer-invisibility-spec' for the kind of elements  See documentation for `buffer-invisibility-spec' for the kind of elements

Legend:
Removed from v.1.321  
changed lines
  Added in v.1.322

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26