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. |
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) |
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 |