diff options
| author | Paul Eggert | 2011-07-13 23:41:47 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-07-13 23:41:47 -0700 |
| commit | cf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e (patch) | |
| tree | 1bdb0fd052770b8c3b0c6ea83fb7c6a9bfdd5b85 /lisp/simple.el | |
| parent | ca4aa9359160557f8103639fc3c0ccb16c6ba8d2 (diff) | |
| parent | 27fa387ad10e6a5639de1ab08e7559c06e9d802d (diff) | |
| download | emacs-cf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e.tar.gz emacs-cf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e.zip | |
Merge from trunk.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 2c792a2c78e..64333402924 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1152,6 +1152,8 @@ display the result of expression evaluation." | |||
| 1152 | (defun eval-expression (eval-expression-arg | 1152 | (defun eval-expression (eval-expression-arg |
| 1153 | &optional eval-expression-insert-value) | 1153 | &optional eval-expression-insert-value) |
| 1154 | "Evaluate EVAL-EXPRESSION-ARG and print value in the echo area. | 1154 | "Evaluate EVAL-EXPRESSION-ARG and print value in the echo area. |
| 1155 | When called interactively, read an Emacs Lisp expression and | ||
| 1156 | evaluate it. | ||
| 1155 | Value is also consed on to front of the variable `values'. | 1157 | Value is also consed on to front of the variable `values'. |
| 1156 | Optional argument EVAL-EXPRESSION-INSERT-VALUE non-nil (interactively, | 1158 | Optional argument EVAL-EXPRESSION-INSERT-VALUE non-nil (interactively, |
| 1157 | with prefix argument) means insert the result into the current buffer | 1159 | with prefix argument) means insert the result into the current buffer |
| @@ -5303,11 +5305,12 @@ The variable `selective-display' has a separate value for each buffer." | |||
| 5303 | (defvaralias 'indicate-unused-lines 'indicate-empty-lines) | 5305 | (defvaralias 'indicate-unused-lines 'indicate-empty-lines) |
| 5304 | 5306 | ||
| 5305 | (defun toggle-truncate-lines (&optional arg) | 5307 | (defun toggle-truncate-lines (&optional arg) |
| 5306 | "Toggle whether to fold or truncate long lines for the current buffer. | 5308 | "Toggle truncating of long lines for the current buffer. |
| 5309 | When truncating is off, long lines are folded. | ||
| 5307 | With prefix argument ARG, truncate long lines if ARG is positive, | 5310 | With prefix argument ARG, truncate long lines if ARG is positive, |
| 5308 | otherwise don't truncate them. Note that in side-by-side windows, | 5311 | otherwise fold them. Note that in side-by-side windows, this |
| 5309 | this command has no effect if `truncate-partial-width-windows' | 5312 | command has no effect if `truncate-partial-width-windows' is |
| 5310 | is non-nil." | 5313 | non-nil." |
| 5311 | (interactive "P") | 5314 | (interactive "P") |
| 5312 | (setq truncate-lines | 5315 | (setq truncate-lines |
| 5313 | (if (null arg) | 5316 | (if (null arg) |
| @@ -5520,8 +5523,8 @@ The function should return non-nil if the two tokens do not match.") | |||
| 5520 | (minibuffer-message "Mismatched parentheses") | 5523 | (minibuffer-message "Mismatched parentheses") |
| 5521 | (message "Mismatched parentheses")) | 5524 | (message "Mismatched parentheses")) |
| 5522 | (if (minibufferp) | 5525 | (if (minibufferp) |
| 5523 | (minibuffer-message "Unmatched parenthesis") | 5526 | (minibuffer-message "No matching parenthesis found") |
| 5524 | (message "Unmatched parenthesis")))) | 5527 | (message "No matching parenthesis found")))) |
| 5525 | ((not blinkpos) nil) | 5528 | ((not blinkpos) nil) |
| 5526 | ((pos-visible-in-window-p blinkpos) | 5529 | ((pos-visible-in-window-p blinkpos) |
| 5527 | ;; Matching open within window, temporarily move to blinkpos but only | 5530 | ;; Matching open within window, temporarily move to blinkpos but only |