mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-23 07:19:15 +00:00
*** empty log message ***
This commit is contained in:
parent
6ec3899e16
commit
450a90e2ea
@ -116,12 +116,14 @@
|
||||
(setq name (concat (downcase (substring name 0 (match-beginning 0)))
|
||||
"-"
|
||||
(substring name (match-end 0)))))
|
||||
(delete-file (concat (expand-file-name "../etc/DOC-") name))
|
||||
(setq name (concat (expand-file-name "../etc/DOC-") name))
|
||||
(if (file-exists-p name)
|
||||
(delete-file name))
|
||||
(copy-file (expand-file-name "../etc/DOC")
|
||||
(concat (expand-file-name "../etc/DOC-") name)
|
||||
name
|
||||
t)
|
||||
(Snarf-documentation (concat "DOC-" name)))
|
||||
(Snarf-documentation "DOC"))
|
||||
(Snarf-documentation (file-name-nondirectory name)))
|
||||
(Snarf-documentation "DOC"))
|
||||
(message "Finding pointers to doc strings...done")
|
||||
|
||||
;Note: You can cause additional libraries to be preloaded
|
||||
|
Loading…
Reference in New Issue
Block a user