[Emacs-diffs] emacs/lisp ChangeLog Makefile.in progmodes/subw...

[Tassilo Horn]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Tassilo Horn <tsdh>     09/11/21 07:50:52

Modified files:
        lisp           : ChangeLog Makefile.in 
Added files:
        lisp/progmodes : subword.el 
Removed files:
        lisp           : subword.el 

Log message:
                * progmodes/subword.el: Rename from lisp/subword.el.
        
                * subword.el: Rename to progmodes/subword.el.
        
                * Makefile.in (ELCFILES): Adapt to subword.el move.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16695&r2=1.16696
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/Makefile.in?cvsroot=emacs&r1=1.211&r2=1.212
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subword.el?cvsroot=emacs&r1=1.2&r2=0
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/subword.el?cvsroot=emacs&rev=1.1

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16695
retrieving revision 1.16696
diff -u -b -r1.16695 -r1.16696
--- ChangeLog   21 Nov 2009 06:43:45 -0000      1.16695
+++ ChangeLog   21 Nov 2009 07:50:48 -0000      1.16696
@@ -1,3 +1,11 @@
+2009-11-21  Tassilo Horn  <address@hidden>
+
+       * progmodes/subword.el: Rename from lisp/subword.el.
+
+       * subword.el: Rename to progmodes/subword.el.
+
+       * Makefile.in (ELCFILES): Adapt to subword.el move.
+
 2009-11-21  Thierry Volpiatto  <address@hidden>
            Stefan Monnier  <address@hidden>
 

Index: Makefile.in
===================================================================
RCS file: /sources/emacs/emacs/lisp/Makefile.in,v
retrieving revision 1.211
retrieving revision 1.212
diff -u -b -r1.211 -r1.212
--- Makefile.in 20 Nov 2009 14:05:22 -0000      1.211
+++ Makefile.in 21 Nov 2009 07:50:51 -0000      1.212
@@ -1264,6 +1264,7 @@
        $(lisp)/progmodes/sh-script.elc \
        $(lisp)/progmodes/simula.elc \
        $(lisp)/progmodes/sql.elc \
+       $(lisp)/progmodes/subword.elc \
        $(lisp)/progmodes/sym-comp.elc \
        $(lisp)/progmodes/tcl.elc \
        $(lisp)/progmodes/vera-mode.elc \
@@ -1308,7 +1309,6 @@
        $(lisp)/startup.elc \
        $(lisp)/strokes.elc \
        $(lisp)/subr.elc \
-       $(lisp)/subword.elc \
        $(lisp)/t-mouse.elc \
        $(lisp)/tabify.elc \
        $(lisp)/talk.elc \

Index: progmodes/subword.el
===================================================================
RCS file: progmodes/subword.el
diff -N progmodes/subword.el
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ progmodes/subword.el        21 Nov 2009 07:50:52 -0000      1.1
@@ -0,0 +1,282 @@
+;;; subword.el --- Handling capitalized subwords in a nomenclature
+
+;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, 
Inc.
+
+;; Author: Masatake YAMATO
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This package was cc-submode.el before it was recognized being
+;; useful in general and not tied to C and c-mode at all.
+
+;; This package provides `subword' oriented commands and a minor mode
+;; (`subword-mode') that substitutes the common word handling
+;; functions with them.
+
+;; In spite of GNU Coding Standards, it is popular to name a symbol by
+;; mixing uppercase and lowercase letters, e.g. "GtkWidget",
+;; "EmacsFrameClass", "NSGraphicsContext", etc.  Here we call these
+;; mixed case symbols `nomenclatures'.  Also, each capitalized (or
+;; completely uppercase) part of a nomenclature is called a `subword'.
+;; Here are some examples:
+
+;;  Nomenclature           Subwords
+;;  ===========================================================
+;;  GtkWindow          =>  "Gtk" and "Window"
+;;  EmacsFrameClass    =>  "Emacs", "Frame" and "Class"
+;;  NSGraphicsContext  =>  "NS", "Graphics" and "Context"
+
+;; The subword oriented commands defined in this package recognize
+;; subwords in a nomenclature to move between them and to edit them as
+;; words.
+
+;; In the minor mode, all common key bindings for word oriented
+;; commands are overridden by the subword oriented commands:
+
+;; Key     Word oriented command      Subword oriented command
+;; ============================================================
+;; M-f     `forward-word'             `subword-forward'
+;; M-b     `backward-word'            `subword-backward'
+;; M-@     `mark-word'                `subword-mark'
+;; M-d     `kill-word'                `subword-kill'
+;; M-DEL   `backward-kill-word'       `subword-backward-kill'
+;; M-t     `transpose-words'          `subword-transpose'
+;; M-c     `capitalize-word'          `subword-capitalize'
+;; M-u     `upcase-word'              `subword-upcase'
+;; M-l     `downcase-word'            `subword-downcase'
+;;
+;; Note: If you have changed the key bindings for the word oriented
+;; commands in your .emacs or a similar place, the keys you've changed
+;; to are also used for the corresponding subword oriented commands.
+
+;; To make the mode turn on automatically, put the following code in
+;; your .emacs:
+;;
+;; (add-hook 'c-mode-common-hook
+;;       (lambda () (subword-mode 1)))
+;;
+
+;; Acknowledgment:
+;; The regular expressions to detect subwords are mostly based on
+;; the old `c-forward-into-nomenclature' originally contributed by
+;; Terry_Glanfield dot Southern at rxuk dot xerox dot com.
+
+;; TODO: ispell-word and subword oriented C-w in isearch.
+
+;;; Code:
+
+(defvar subword-mode-map
+  (let ((map (make-sparse-keymap)))
+    (dolist (cmd '(forward-word backward-word mark-word kill-word
+                               backward-kill-word transpose-words
+                                capitalize-word upcase-word downcase-word))
+      (let ((othercmd (let ((name (symbol-name cmd)))
+                        (string-match "\\(.*-\\)\\(word.*\\)" name)
+                        (intern (concat (match-string 1 name)
+                                        "sub"
+                                        (match-string 2 name))))))
+        (define-key map (vector 'remap cmd) othercmd)))
+    map)
+  "Keymap used in `subword-mode' minor mode.")
+
+;;;###autoload
+(define-minor-mode subword-mode
+  "Mode enabling subword movement and editing keys.
+In spite of GNU Coding Standards, it is popular to name a symbol by
+mixing uppercase and lowercase letters, e.g. \"GtkWidget\",
+\"EmacsFrameClass\", \"NSGraphicsContext\", etc.  Here we call these
+mixed case symbols `nomenclatures'. Also, each capitalized (or
+completely uppercase) part of a nomenclature is called a `subword'.
+Here are some examples:
+
+  Nomenclature           Subwords
+  ===========================================================
+  GtkWindow          =>  \"Gtk\" and \"Window\"
+  EmacsFrameClass    =>  \"Emacs\", \"Frame\" and \"Class\"
+  NSGraphicsContext  =>  \"NS\", \"Graphics\" and \"Context\"
+
+The subword oriented commands activated in this minor mode recognize
+subwords in a nomenclature to move between subwords and to edit them
+as words.
+
+\\{subword-mode-map}"
+    nil
+    nil
+    subword-mode-map)
+
+(define-obsolete-function-alias 'c-subword-mode 'subword-mode "23.2")
+
+;;;###autoload
+(define-global-minor-mode global-subword-mode subword-mode
+  (lambda () (subword-mode 1)))
+
+(defun subword-forward (&optional arg)
+  "Do the same as `forward-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `forward-word'."
+  (interactive "p")
+  (unless arg (setq arg 1))
+  (cond
+   ((< 0 arg)
+    (dotimes (i arg (point))
+      (subword-forward-internal)))
+   ((> 0 arg)
+    (dotimes (i (- arg) (point))
+      (subword-backward-internal)))
+   (t
+    (point))))
+
+(put 'subword-forward 'CUA 'move)
+
+(defun subword-backward (&optional arg)
+  "Do the same as `backward-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `backward-word'."
+  (interactive "p")
+  (subword-forward (- (or arg 1))))
+
+(defun subword-mark (arg)
+  "Do the same as `mark-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `mark-word'."
+  ;; This code is almost copied from `mark-word' in GNU Emacs.
+  (interactive "p")
+  (cond ((and (eq last-command this-command) (mark t))
+        (set-mark
+         (save-excursion
+           (goto-char (mark))
+           (subword-forward arg)
+           (point))))
+       (t
+        (push-mark
+         (save-excursion
+           (subword-forward arg)
+           (point))
+         nil t))))
+
+(put 'subword-backward 'CUA 'move)
+
+(defun subword-kill (arg)
+  "Do the same as `kill-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `kill-word'."
+  (interactive "p")
+  (kill-region (point) (subword-forward arg)))
+
+(defun subword-backward-kill (arg)
+  "Do the same as `backward-kill-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `backward-kill-word'."
+  (interactive "p")
+  (subword-kill (- arg)))
+
+(defun subword-transpose (arg)
+  "Do the same as `transpose-words' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `transpose-words'."
+  (interactive "*p")
+  (transpose-subr 'subword-forward arg))
+
+(defun subword-downcase (arg)
+  "Do the same as `downcase-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `downcase-word'."
+  (interactive "p")
+  (let ((start (point)))
+    (downcase-region (point) (subword-forward arg))
+    (when (< arg 0)
+      (goto-char start))))
+
+(defun subword-upcase (arg)
+  "Do the same as `upcase-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `upcase-word'."
+  (interactive "p")
+  (let ((start (point)))
+    (upcase-region (point) (subword-forward arg))
+    (when (< arg 0)
+      (goto-char start))))
+
+(defun subword-capitalize (arg)
+  "Do the same as `capitalize-word' but on subwords.
+See the command `subword-mode' for a description of subwords.
+Optional argument ARG is the same as for `capitalize-word'."
+  (interactive "p")
+  (let ((count (abs arg))
+       (start (point))
+       (advance (if (< arg 0) nil t)))
+    (dotimes (i count)
+      (if advance
+         (progn (re-search-forward
+                 (concat "[[:alpha:]]")
+                 nil t)
+                (goto-char (match-beginning 0)))
+       (subword-backward))
+      (let* ((p (point))
+            (pp (1+ p))
+            (np (subword-forward)))
+       (upcase-region p pp)
+       (downcase-region pp np)
+       (goto-char (if advance np p))))
+    (unless advance
+      (goto-char start))))
+
+
+
+;;
+;; Internal functions
+;;
+(defun subword-forward-internal ()
+  (if (and
+       (save-excursion
+        (let ((case-fold-search nil))
+          (re-search-forward
+           (concat "\\W*\\(\\([[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)")
+           nil t)))
+       (> (match-end 0) (point)))
+      (goto-char
+       (cond
+       ((< 1 (- (match-end 2) (match-beginning 2)))
+        (1- (match-end 2)))
+       (t
+        (match-end 0))))
+    (forward-word 1)))
+
+
+(defun subword-backward-internal ()
+  (if (save-excursion
+       (let ((case-fold-search nil))
+         (re-search-backward
+          (concat
+           "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([[:upper:]]+\\W*\\)"
+           "\\|\\W\\w+\\)")
+          nil t)))
+      (goto-char
+       (cond
+       ((and (match-end 3)
+             (< 1 (- (match-end 3) (match-beginning 3)))
+             (not (eq (point) (match-end 3))))
+        (1- (match-end 3)))
+       (t
+        (1+ (match-beginning 0)))))
+    (backward-word 1)))
+
+
+(provide 'subword)
+
+;;; subword.el ends here

Index: subword.el
===================================================================
RCS file: subword.el
diff -N subword.el
--- subword.el  20 Nov 2009 18:09:32 -0000      1.2
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,282 +0,0 @@
-;;; subword.el --- Handling capitalized subwords in a nomenclature
-
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, 
Inc.
-
-;; Author: Masatake YAMATO
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This package was cc-submode.el before it was recognized being
-;; useful in general and not tied to C and c-mode at all.
-
-;; This package provides `subword' oriented commands and a minor mode
-;; (`subword-mode') that substitutes the common word handling
-;; functions with them.
-
-;; In spite of GNU Coding Standards, it is popular to name a symbol by
-;; mixing uppercase and lowercase letters, e.g. "GtkWidget",
-;; "EmacsFrameClass", "NSGraphicsContext", etc.  Here we call these
-;; mixed case symbols `nomenclatures'.  Also, each capitalized (or
-;; completely uppercase) part of a nomenclature is called a `subword'.
-;; Here are some examples:
-
-;;  Nomenclature           Subwords
-;;  ===========================================================
-;;  GtkWindow          =>  "Gtk" and "Window"
-;;  EmacsFrameClass    =>  "Emacs", "Frame" and "Class"
-;;  NSGraphicsContext  =>  "NS", "Graphics" and "Context"
-
-;; The subword oriented commands defined in this package recognize
-;; subwords in a nomenclature to move between them and to edit them as
-;; words.
-
-;; In the minor mode, all common key bindings for word oriented
-;; commands are overridden by the subword oriented commands:
-
-;; Key     Word oriented command      Subword oriented command
-;; ============================================================
-;; M-f     `forward-word'             `subword-forward'
-;; M-b     `backward-word'            `subword-backward'
-;; M-@     `mark-word'                `subword-mark'
-;; M-d     `kill-word'                `subword-kill'
-;; M-DEL   `backward-kill-word'       `subword-backward-kill'
-;; M-t     `transpose-words'          `subword-transpose'
-;; M-c     `capitalize-word'          `subword-capitalize'
-;; M-u     `upcase-word'              `subword-upcase'
-;; M-l     `downcase-word'            `subword-downcase'
-;;
-;; Note: If you have changed the key bindings for the word oriented
-;; commands in your .emacs or a similar place, the keys you've changed
-;; to are also used for the corresponding subword oriented commands.
-
-;; To make the mode turn on automatically, put the following code in
-;; your .emacs:
-;;
-;; (add-hook 'c-mode-common-hook
-;;       (lambda () (subword-mode 1)))
-;;
-
-;; Acknowledgment:
-;; The regular expressions to detect subwords are mostly based on
-;; the old `c-forward-into-nomenclature' originally contributed by
-;; Terry_Glanfield dot Southern at rxuk dot xerox dot com.
-
-;; TODO: ispell-word and subword oriented C-w in isearch.
-
-;;; Code:
-
-(defvar subword-mode-map
-  (let ((map (make-sparse-keymap)))
-    (dolist (cmd '(forward-word backward-word mark-word kill-word
-                               backward-kill-word transpose-words
-                                capitalize-word upcase-word downcase-word))
-      (let ((othercmd (let ((name (symbol-name cmd)))
-                        (string-match "\\(.*-\\)\\(word.*\\)" name)
-                        (intern (concat (match-string 1 name)
-                                        "sub"
-                                        (match-string 2 name))))))
-        (define-key map (vector 'remap cmd) othercmd)))
-    map)
-  "Keymap used in `subword-mode' minor mode.")
-
-;;;###autoload
-(define-minor-mode subword-mode
-  "Mode enabling subword movement and editing keys.
-In spite of GNU Coding Standards, it is popular to name a symbol by
-mixing uppercase and lowercase letters, e.g. \"GtkWidget\",
-\"EmacsFrameClass\", \"NSGraphicsContext\", etc.  Here we call these
-mixed case symbols `nomenclatures'. Also, each capitalized (or
-completely uppercase) part of a nomenclature is called a `subword'.
-Here are some examples:
-
-  Nomenclature           Subwords
-  ===========================================================
-  GtkWindow          =>  \"Gtk\" and \"Window\"
-  EmacsFrameClass    =>  \"Emacs\", \"Frame\" and \"Class\"
-  NSGraphicsContext  =>  \"NS\", \"Graphics\" and \"Context\"
-
-The subword oriented commands activated in this minor mode recognize
-subwords in a nomenclature to move between subwords and to edit them
-as words.
-
-\\{subword-mode-map}"
-    nil
-    nil
-    subword-mode-map)
-
-(define-obsolete-function-alias 'c-subword-mode 'subword-mode "23.2")
-
-;;;###autoload
-(define-global-minor-mode global-subword-mode subword-mode
-  (lambda () (subword-mode 1)))
-
-(defun subword-forward (&optional arg)
-  "Do the same as `forward-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `forward-word'."
-  (interactive "p")
-  (unless arg (setq arg 1))
-  (cond
-   ((< 0 arg)
-    (dotimes (i arg (point))
-      (subword-forward-internal)))
-   ((> 0 arg)
-    (dotimes (i (- arg) (point))
-      (subword-backward-internal)))
-   (t
-    (point))))
-
-(put 'subword-forward 'CUA 'move)
-
-(defun subword-backward (&optional arg)
-  "Do the same as `backward-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `backward-word'."
-  (interactive "p")
-  (subword-forward (- (or arg 1))))
-
-(defun subword-mark (arg)
-  "Do the same as `mark-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `mark-word'."
-  ;; This code is almost copied from `mark-word' in GNU Emacs.
-  (interactive "p")
-  (cond ((and (eq last-command this-command) (mark t))
-        (set-mark
-         (save-excursion
-           (goto-char (mark))
-           (subword-forward arg)
-           (point))))
-       (t
-        (push-mark
-         (save-excursion
-           (subword-forward arg)
-           (point))
-         nil t))))
-
-(put 'subword-backward 'CUA 'move)
-
-(defun subword-kill (arg)
-  "Do the same as `kill-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `kill-word'."
-  (interactive "p")
-  (kill-region (point) (subword-forward arg)))
-
-(defun subword-backward-kill (arg)
-  "Do the same as `backward-kill-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `backward-kill-word'."
-  (interactive "p")
-  (subword-kill (- arg)))
-
-(defun subword-transpose (arg)
-  "Do the same as `transpose-words' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `transpose-words'."
-  (interactive "*p")
-  (transpose-subr 'subword-forward arg))
-
-(defun subword-downcase (arg)
-  "Do the same as `downcase-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `downcase-word'."
-  (interactive "p")
-  (let ((start (point)))
-    (downcase-region (point) (subword-forward arg))
-    (when (< arg 0)
-      (goto-char start))))
-
-(defun subword-upcase (arg)
-  "Do the same as `upcase-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `upcase-word'."
-  (interactive "p")
-  (let ((start (point)))
-    (upcase-region (point) (subword-forward arg))
-    (when (< arg 0)
-      (goto-char start))))
-
-(defun subword-capitalize (arg)
-  "Do the same as `capitalize-word' but on subwords.
-See the command `subword-mode' for a description of subwords.
-Optional argument ARG is the same as for `capitalize-word'."
-  (interactive "p")
-  (let ((count (abs arg))
-       (start (point))
-       (advance (if (< arg 0) nil t)))
-    (dotimes (i count)
-      (if advance
-         (progn (re-search-forward
-                 (concat "[[:alpha:]]")
-                 nil t)
-                (goto-char (match-beginning 0)))
-       (subword-backward))
-      (let* ((p (point))
-            (pp (1+ p))
-            (np (subword-forward)))
-       (upcase-region p pp)
-       (downcase-region pp np)
-       (goto-char (if advance np p))))
-    (unless advance
-      (goto-char start))))
-
-
-
-;;
-;; Internal functions
-;;
-(defun subword-forward-internal ()
-  (if (and
-       (save-excursion
-        (let ((case-fold-search nil))
-          (re-search-forward
-           (concat "\\W*\\(\\([[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)")
-           nil t)))
-       (> (match-end 0) (point)))
-      (goto-char
-       (cond
-       ((< 1 (- (match-end 2) (match-beginning 2)))
-        (1- (match-end 2)))
-       (t
-        (match-end 0))))
-    (forward-word 1)))
-
-
-(defun subword-backward-internal ()
-  (if (save-excursion
-       (let ((case-fold-search nil))
-         (re-search-backward
-          (concat
-           "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([[:upper:]]+\\W*\\)"
-           "\\|\\W\\w+\\)")
-          nil t)))
-      (goto-char
-       (cond
-       ((and (match-end 3)
-             (< 1 (- (match-end 3) (match-beginning 3)))
-             (not (eq (point) (match-end 3))))
-        (1- (match-end 3)))
-       (t
-        (1+ (match-beginning 0)))))
-    (backward-word 1)))
-
-
-(provide 'subword)
-
-;;; subword.el ends here