aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/simple.el
diff options
context:
space:
mode:
authorPaul Eggert2011-07-13 23:41:47 -0700
committerPaul Eggert2011-07-13 23:41:47 -0700
commitcf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e (patch)
tree1bdb0fd052770b8c3b0c6ea83fb7c6a9bfdd5b85 /lisp/simple.el
parentca4aa9359160557f8103639fc3c0ccb16c6ba8d2 (diff)
parent27fa387ad10e6a5639de1ab08e7559c06e9d802d (diff)
downloademacs-cf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e.tar.gz
emacs-cf950e6bbdeec3f6aab3e119f26f9cd5d962ac2e.zip
Merge from trunk.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r--lisp/simple.el15
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.
1155When called interactively, read an Emacs Lisp expression and
1156evaluate it.
1155Value is also consed on to front of the variable `values'. 1157Value is also consed on to front of the variable `values'.
1156Optional argument EVAL-EXPRESSION-INSERT-VALUE non-nil (interactively, 1158Optional argument EVAL-EXPRESSION-INSERT-VALUE non-nil (interactively,
1157with prefix argument) means insert the result into the current buffer 1159with 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.
5309When truncating is off, long lines are folded.
5307With prefix argument ARG, truncate long lines if ARG is positive, 5310With prefix argument ARG, truncate long lines if ARG is positive,
5308otherwise don't truncate them. Note that in side-by-side windows, 5311otherwise fold them. Note that in side-by-side windows, this
5309this command has no effect if `truncate-partial-width-windows' 5312command has no effect if `truncate-partial-width-windows' is
5310is non-nil." 5313non-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