commit 5362ef79cbb195f9df38f71b4d64e290cd7d9f50 (HEAD, refs/remotes/origin/master) Author: Mark Oteiza Date: Tue Jan 17 00:48:00 2017 -0500 Nix some uses of eval * lisp/play/dunnet.el: Fix triple negative. (dun-doverb): Use funcall instead of eval. (dun-echo): Just call dun-mprinc. (dun-save-val): Just bind value without eval. diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index f219f871ec..37dcba6142 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -1113,7 +1113,7 @@ for a moment, then straighten yourself up. (dun-doverb dun-ignore dun-verblist (car rest) (cdr rest))) (if (not (cdr (assq (intern verb) dun-verblist))) -1 (setq dun-numcmds (1+ dun-numcmds)) - (eval (list (cdr (assq (intern verb) dun-verblist)) (quote rest))))))) + (funcall (cdr (assq (intern verb) dun-verblist)) rest))))) ;;; Function to take a string and change it into a list of lowercase words. @@ -2687,7 +2687,7 @@ drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..") (dun-mprinc var) (dun-mprinc ": Permission denied") (setq nomore t)) - (eval (list 'dun-mprinc var)) + (dun-mprinc var) (dun-mprinc " "))))))) (dun-mprinc "\n"))) @@ -3177,9 +3177,7 @@ File not found"))) (defun dun-save-val (varname) - (let (value) - (setq varname (intern varname)) - (setq value (eval varname)) + (let ((value (symbol-value (intern varname)))) (dun-minsert "(setq ") (dun-minsert varname) (dun-minsert " ") @@ -3329,7 +3327,7 @@ File not found"))) (dun-mprinc "\n") (dun-batch-loop)) -(unless (not noninteractive) +(when noninteractive (fset 'dun-mprinc 'dun-batch-mprinc) (fset 'dun-mprincl 'dun-batch-mprincl) (fset 'dun-vparse 'dun-batch-parse) commit 922850bcc7ccc24601c27598dbae3520d5f9943d Author: Mark Oteiza Date: Mon Jan 16 23:35:05 2017 -0500 ; * lisp/play/dunnet.el: Fix file footer. diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el index 6cbd84a9cf..f219f871ec 100644 --- a/lisp/play/dunnet.el +++ b/lisp/play/dunnet.el @@ -3343,8 +3343,8 @@ File not found"))) (provide 'dunnet) -;;; dunnet.el ends here - ;; Local Variables: ;; byte-compile-warnings: (not free-vars lexical) ;; End: + +;;; dunnet.el ends here commit e27239ad1b5b675f96695ab8a36474db6d453daa Author: Tom Tromey Date: Mon Jan 16 17:21:55 2017 -0700 Fix comment in css-mode.el * lisp/textmodes/css-mode.el: Remove obsolete comment. diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index dfe1cf0c34..872d115f29 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -27,7 +27,6 @@ ;;; Todo: -;; - electric ; and } ;; - filling code with auto-fill-mode ;; - fix font-lock errors with multi-line selectors