mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(command-line): Also check if the abbrev file is

Browse Source 
readable.
This commit is contained in:
Dan Nicolaescu 2007-02-24 18:29:19 +00:00
parent 9bdd0e1632
commit 2863a9be6a
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-02-24 Dan Nicolaescu <dann@ics.uci.edu>
* startup.el (command-line): Also check if the abbrev file is
readable.
2007-02-24 John Paul Wallington <jpw@pobox.com>
* net/tls.el (tls-certtool-program): Fix custom type.

8
lisp/startup.el
View File

@ -952,8 +952,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(with-current-buffer (window-buffer)
(deactivate-mark)))
;; If the user has a file of abbrevs, read it.
(if (file-exists-p abbrev-file-name)
;; If the user has a file of abbrevs, read it.
;; FIXME: after the 22.0 release this should be changed so
;; that it does not read the abbrev file when -batch is used
;; on the command line.
(when (and (file-exists-p abbrev-file-name)
(file-readable-p abbrev-file-name))
(quietly-read-abbrev-file abbrev-file-name))
;; If the abbrevs came entirely from the init file or the