mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(just-one-space): Argument specifies number of spaces.

Browse Source 
(eval-expression-print-format): Avoid warning about edebug-active.
This commit is contained in:
Richard M. Stallman 2005-01-15 18:08:46 +00:00
parent bdd5fa9932
commit 56abefac4f
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/simple.el
View File

@ -647,15 +647,16 @@ If BACKWARD-ONLY is non-nil, only delete spaces before point."
(skip-chars-backward " \t")
(constrain-to-field nil orig-pos)))))
(defun just-one-space ()
"Delete all spaces and tabs around point, leaving one space."
(interactive "*")
(defun just-one-space (n)
"Delete all spaces and tabs around point, leaving one space (or N spaces)."
(interactive "*p")
(let ((orig-pos (point)))
(skip-chars-backward " \t")
(constrain-to-field nil orig-pos)
(if (= (following-char) ? )
(forward-char 1)
(insert ? ))
(dotimes (i n)
(if (= (following-char) ?\ )
(forward-char 1)
(insert ?\ )))
(delete-region
(point)
(progn
@ -899,7 +900,7 @@ display the result of expression evaluation."
(if (and (integerp value)
(or (not (memq this-command '(eval-last-sexp eval-print-last-sexp)))
(eq this-command last-command)
(and (boundp 'edebug-active) edebug-active)))
(if (boundp 'edebug-active) edebug-active)))
(let ((char-string
(if (or (and (boundp 'edebug-active) edebug-active)
(memq this-command '(eval-last-sexp eval-print-last-sexp)))
@ -4115,7 +4116,7 @@ specification for `play-sound'."
(play-sound sound)))
(define-key global-map "\e\e\e" 'keyboard-escape-quit)
(defcustom read-mail-command 'rmail
"*Your preference for a mail reading package.
This is used by some keybindings which support reading mail.
@ -4257,7 +4258,7 @@ Each action has the form (FUNCTION . ARGS)."
(list nil nil nil current-prefix-arg))
(compose-mail to subject other-headers continue
'switch-to-buffer-other-frame yank-action send-actions))
(defvar set-variable-value-history nil
"History of values entered with `set-variable'.")
@ -4320,7 +4321,7 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
;; Force a thorough redisplay for the case that the variable
;; has an effect on the display, like `tab-width' has.
(force-mode-line-update))
;; Define the major mode for lists of completions.
(defvar completion-list-mode-map nil