diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 13 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 2 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 6 | ||||
| -rw-r--r-- | lisp/simple.el | 10 |
4 files changed, 24 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d935d5b01f..b2a3f135109 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,16 @@ | |||
| 1 | 2012-04-15 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | Avoid the use of ((lambda ...) ...) in lexical-binding code. | ||
| 4 | * emacs-lisp/easy-mmode.el (define-minor-mode):Use funcall (bug#11241). | ||
| 5 | |||
| 6 | 2012-04-15 Glenn Morris <rgm@gnu.org> | ||
| 7 | |||
| 8 | * simple.el (process-file-side-effects): Doc fix. | ||
| 9 | |||
| 10 | 2012-04-15 Glenn Morris <rgm@gnu.org> | ||
| 11 | |||
| 12 | * international/mule-cmds.el (set-language-environment): Doc fix. | ||
| 13 | |||
| 1 | 2012-04-14 Juanma Barranquero <lekktu@gmail.com> | 14 | 2012-04-14 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 15 | ||
| 3 | * server.el (server-auth-key, server-generate-key): Doc fixes. | 16 | * server.el (server-auth-key, server-generate-key): Doc fixes. |
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 88698a1f069..0d6716a2e63 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -260,7 +260,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. | |||
| 260 | ;; repeat-command still does the toggling correctly. | 260 | ;; repeat-command still does the toggling correctly. |
| 261 | (interactive (list (or current-prefix-arg 'toggle))) | 261 | (interactive (list (or current-prefix-arg 'toggle))) |
| 262 | (let ((,last-message (current-message))) | 262 | (let ((,last-message (current-message))) |
| 263 | (,@(if setter (list setter) | 263 | (,@(if setter `(funcall #',setter) |
| 264 | (list (if (symbolp mode) 'setq 'setf) mode)) | 264 | (list (if (symbolp mode) 'setq 'setf) mode)) |
| 265 | (if (eq arg 'toggle) | 265 | (if (eq arg 'toggle) |
| 266 | (not ,mode) | 266 | (not ,mode) |
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 6d609b67d63..02d37f86da0 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -1834,7 +1834,11 @@ The default status is as follows: | |||
| 1834 | This sets the coding system priority and the default input method | 1834 | This sets the coding system priority and the default input method |
| 1835 | and sometimes other things. LANGUAGE-NAME should be a string | 1835 | and sometimes other things. LANGUAGE-NAME should be a string |
| 1836 | which is the name of a language environment. For example, \"Latin-1\" | 1836 | which is the name of a language environment. For example, \"Latin-1\" |
| 1837 | specifies the character set for the major languages of Western Europe." | 1837 | specifies the character set for the major languages of Western Europe. |
| 1838 | |||
| 1839 | If there is a prior value for `current-language-environment', this | ||
| 1840 | runs the hook `exit-language-environment-hook'. After setting up | ||
| 1841 | the new language environment, it runs `set-language-environment-hook'." | ||
| 1838 | (interactive (list (read-language-name | 1842 | (interactive (list (read-language-name |
| 1839 | nil | 1843 | nil |
| 1840 | "Set language environment (default English): "))) | 1844 | "Set language environment (default English): "))) |
diff --git a/lisp/simple.el b/lisp/simple.el index b8422f9923a..09fe1807d8f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; simple.el --- basic editing commands for Emacs | 1 | ;;; simple.el --- basic editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985-1987, 1993-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1985-1987, 1993-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | ;; Keywords: internal | 6 | ;; Keywords: internal |
| @@ -2677,13 +2677,13 @@ value passed." | |||
| 2677 | (defvar process-file-side-effects t | 2677 | (defvar process-file-side-effects t |
| 2678 | "Whether a call of `process-file' changes remote files. | 2678 | "Whether a call of `process-file' changes remote files. |
| 2679 | 2679 | ||
| 2680 | Per default, this variable is always set to `t', meaning that a | 2680 | By default, this variable is always set to `t', meaning that a |
| 2681 | call of `process-file' could potentially change any file on a | 2681 | call of `process-file' could potentially change any file on a |
| 2682 | remote host. When set to `nil', a file handler could optimize | 2682 | remote host. When set to `nil', a file handler could optimize |
| 2683 | its behavior with respect to remote file attributes caching. | 2683 | its behavior with respect to remote file attribute caching. |
| 2684 | 2684 | ||
| 2685 | This variable should never be changed by `setq'. Instead of, it | 2685 | You should only ever change this variable with a let-binding; |
| 2686 | shall be set only by let-binding.") | 2686 | never with `setq'.") |
| 2687 | 2687 | ||
| 2688 | (defun start-file-process (name buffer program &rest program-args) | 2688 | (defun start-file-process (name buffer program &rest program-args) |
| 2689 | "Start a program in a subprocess. Return the process object for it. | 2689 | "Start a program in a subprocess. Return the process object for it. |