diff options
| author | Ted Zlatanov <tzz@lifelogs.com> | 2013-03-29 21:32:12 -0400 |
|---|---|---|
| committer | Ted Zlatanov <tzz@lifelogs.com> | 2013-03-29 21:32:12 -0400 |
| commit | 0b9381901012fc5626414cb083c5d97ccbe037eb (patch) | |
| tree | 5bef8448e6974aad1503c240efaaa930706a0cb4 /lisp/progmodes/subword.el | |
| parent | 781f4782a7b52a803f01b1c6941984cde9369603 (diff) | |
| download | emacs-0b9381901012fc5626414cb083c5d97ccbe037eb.tar.gz | |
Move forward-whitespace, forward-symbol, forward-same-syntax commands to subr.el. Use forward-symbol in supermode.el again.
* subr.el (forward-whitespace, forward-symbol)
(forward-same-syntax): Move from thingatpt.el.
* progmodes/subword.el: Back to using `forward-symbol'.
Diffstat (limited to 'lisp/progmodes/subword.el')
| -rw-r--r-- | lisp/progmodes/subword.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/subword.el b/lisp/progmodes/subword.el index 91c3a88680a..6cb4713885e 100644 --- a/lisp/progmodes/subword.el +++ b/lisp/progmodes/subword.el @@ -309,7 +309,7 @@ edit them as words. ;; (defun subword-forward-internal () (if superword-mode - (forward-sexp 1) + (forward-symbol 1) (if (and (save-excursion (let ((case-fold-search nil)) @@ -325,7 +325,7 @@ edit them as words. (defun subword-backward-internal () (if superword-mode - (forward-sexp -1) + (forward-symbol -1) (if (save-excursion (let ((case-fold-search nil)) (re-search-backward subword-backward-regexp nil t))) |