Mercurial > hg > xemacs-beta
diff lisp/startup.el @ 4806:fd36a980d701
Use uninterned symbols in various information-hiding contexts.
lisp/ChangeLog addition:
2010-01-01 Aidan Kehoe <kehoea@parhasard.net>
* syntax.el (map-syntax-table):
* subr.el (map-plist):
* startup.el (load-init-file):
* minibuf.el (read-from-minbuffer):
* cus-edit.el (custom-load-custom-defines-1):
* cmdloop.el (execute-extended-command):
Replace symbol names using underscore, whether to avoid dynamic
scope problems or to ensure helpful arguments to
#'call-with-condition-handler, with uninterned symbols.
src/ChangeLog addition:
2010-01-01 Aidan Kehoe <kehoea@parhasard.net>
* mule-charset.c (Fmake_charset):
Don't intern the symbols used to refer to temporary character
sets, that doesn't bring us anything.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 01 Jan 2010 19:45:39 +0000 |
| parents | d71d2cefa42d |
| children | 5efbd1253905 |
line wrap: on
line diff
--- a/lisp/startup.el Sat Dec 05 01:04:17 2009 +0900 +++ b/lisp/startup.el Fri Jan 01 19:45:39 2010 +0000 @@ -1046,9 +1046,15 @@ (load-user-init-file)) (condition-case nil (call-with-condition-handler - #'(lambda (__load_init_file_arg__) + ((macro + . (lambda (lambda-expression) + ;; Be serious about information hiding here: + (nsublis + '((load-init-handler-arg . #:load-init-gZK6A36gTed)) + lambda-expression))) + #'(lambda (load-init-handler-arg) (let ((errstr (error-message-string - __load_init_file_arg__))) + load-init-handler-arg))) (message "Error in init file: %s" errstr) (lwarn 'initialization 'error "\ @@ -1066,8 +1072,8 @@ exact problem." user-init-file errstr (backtrace-in-condition-handler-eliminating-handler - '__load_init_file_arg__))) - (setq init-file-had-error t)) + 'load-init-handler-arg))) + (setq init-file-had-error t))) #'(lambda () (if load-user-init-file-p (load-user-init-file))