commit/cc-mode: acm: Speed up fontification where there's large brace blocks.
11 years, 4 months
Bitbucket
Bitbucket
1 new commit in cc-mode:
https://bitbucket.org/xemacs/cc-mode/changeset/e6f8eb002359/
changeset: e6f8eb002359
user: acm
date: 2012-12-23 11:35:20
summary: Speed up fontification where there's large brace blocks.
cc-fonts.el (c-font-lock-enclosing-decls): Add a limit to a call of
c-beginning-of-decl-1.
affected #: 1 file
diff -r 0c31562f87fd76a707124ecddba15835454e25d9 -r e6f8eb00235954a871e6f44c161e09d34cd2af69 cc-fonts.el
--- a/cc-fonts.el
+++ b/cc-fonts.el
＠＠ -1558,6 +1558,7 ＠＠
;; prevent a repeat invocation. See elisp/lispref page "Search-based
;; Fontification".
(let* ((paren-state (c-parse-state))
+ (decl-search-lim (c-determine-limit 1000))
decl-context in-typedef ps-elt)
;; Are we in any nested struct/union/class/etc. braces?
(while paren-state
＠＠ -1566,7 +1567,7 ＠＠
(when (and (atom ps-elt)
(eq (char-after ps-elt) ?\{))
(goto-char ps-elt)
- (setq decl-context (c-beginning-of-decl-1)
+ (setq decl-context (c-beginning-of-decl-1 decl-search-lim)
in-typedef (looking-at c-typedef-key))
(if in-typedef (c-forward-token-2))
(when (and c-opt-block-decls-with-vars-key
Repository URL: https://bitbucket.org/xemacs/cc-mode/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT PROG-MODES] Go-mode sync with upstream version 14989
11 years, 4 months
The XEmacs Package Smoketest
The XEmacs Package Smoketest
APPROVE COMMIT PROG-MODES
NOTE: This patch has been committed.
# HG changeset patch
# User Mats Lidell <matsl(a)xemacs.org>
# Date 1355619305 -3600
# Node ID 59fd3f8a0af0e7edcaed099fa206d9886e12cbf8
# Parent eacc4cb30d0cac7eab6d454237ffc2f85ea249f1
Go-mode sync with upstream version 14989.
diff -r eacc4cb30d0c -r 59fd3f8a0af0 ChangeLog
--- a/ChangeLog Mon Sep 03 09:21:33 2012 +0200
+++ b/ChangeLog Sun Dec 16 01:55:05 2012 +0100
＠＠ -1,3 +1,7 ＠＠
+2012-12-16 Mats Lidell <matsl(a)xemacs.org>
+
+ * go-mode.el: Sync with upstream version 14989.
+
2012-09-03 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.27 released.
diff -r eacc4cb30d0c -r 59fd3f8a0af0 go-mode.el
--- a/go-mode.el Mon Sep 03 09:21:33 2012 +0200
+++ b/go-mode.el Sun Dec 16 01:55:05 2012 +0100
＠＠ -28,7 +28,7 ＠＠
;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-;;; Synced up with: upstream go-mode.el 13677:c5f564efc620
+;;; Synced up with: upstream go-mode.el 14989:a522fb590152
;;; Commentary:
＠＠ -462,7 +462,7 ＠＠
(if (or (>= (point) limit) (eobp))
(setq result nil)
(setq cs (go-mode-cs))
- (if cs
+ (if (and cs (>= (car cs) (point)))
(if (eq (= (char-after (car cs)) ?/) comment)
;; If inside the expected comment/string, highlight it.
(progn
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit/prog-modes: matsl: Go-mode sync with upstream version 14989.
11 years, 4 months
Bitbucket
Bitbucket
1 new commit in prog-modes:
https://bitbucket.org/xemacs/prog-modes/changeset/59fd3f8a0af0/
changeset: 59fd3f8a0af0
user: matsl
date: 2012-12-16 01:55:05
summary: Go-mode sync with upstream version 14989.
affected #: 2 files
diff -r eacc4cb30d0cac7eab6d454237ffc2f85ea249f1 -r 59fd3f8a0af0e7edcaed099fa206d9886e12cbf8 ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
＠＠ -1,3 +1,7 ＠＠
+2012-12-16 Mats Lidell <matsl(a)xemacs.org>
+
+ * go-mode.el: Sync with upstream version 14989.
+
2012-09-03 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.27 released.
diff -r eacc4cb30d0cac7eab6d454237ffc2f85ea249f1 -r 59fd3f8a0af0e7edcaed099fa206d9886e12cbf8 go-mode.el
--- a/go-mode.el
+++ b/go-mode.el
＠＠ -28,7 +28,7 ＠＠
;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-;;; Synced up with: upstream go-mode.el 13677:c5f564efc620
+;;; Synced up with: upstream go-mode.el 14989:a522fb590152
;;; Commentary:
＠＠ -462,7 +462,7 ＠＠
(if (or (>= (point) limit) (eobp))
(setq result nil)
(setq cs (go-mode-cs))
- (if cs
+ (if (and cs (>= (car cs) (point)))
(if (eq (= (char-after (car cs)) ?/) comment)
;; If inside the expected comment/string, highlight it.
(progn
Repository URL: https://bitbucket.org/xemacs/prog-modes/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT EDIT-UTILS] New. list-register.el. Thank you Akihisa Matsushita.
11 years, 4 months
The XEmacs Package Smoketest
The XEmacs Package Smoketest
APPROVE COMMIT
NOTE: This patch has been committed.
# HG changeset patch
# User Mats Lidell <mats.lidell(a)cag.se>
# Date 1355527748 -3600
# Node ID 0e897126330cbe4d90d9653532da1170d2165597
# Parent 0b8f0909d60364601a1a1b10439a99eba7a587dc
New. list-register.el. Thank you Akihisa Matsushita.
Changelog addition:
2012-12-11 Mats Lidell <matsl(a)xemacs.org>
* list-register.el: New. Thank you Akihisa Matsushita.
diff -r 0b8f0909d603 -r 0e897126330c ChangeLog
--- a/ChangeLog Wed Nov 21 09:11:19 2012 +0100
+++ b/ChangeLog Sat Dec 15 00:29:08 2012 +0100
＠＠ -1,3 +1,7 ＠＠
+2012-12-11 Mats Lidell <matsl(a)xemacs.org>
+
+ * list-register.el: New. Thank you Akihisa Matsushita.
+
2012-11-21 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.48 released.
diff -r 0b8f0909d603 -r 0e897126330c Makefile
--- a/Makefile Wed Nov 21 09:11:19 2012 +0100
+++ b/Makefile Sat Dec 15 00:29:08 2012 +0100
＠＠ -42,7 +42,8 ＠＠
toolbar-utils.elc tree-menu.elc uniquify.elc where-was-i-db.elc \
winring.elc vertical-mode.elc power-macros.elc icon-themes.elc \
search-buffers.elc setnu.elc align.elc autorevert.elc allout.elc \
- narrow-stack.elc highline.elc crm.elc wide-edit.elc buffer-colors.elc
+ narrow-stack.elc highline.elc crm.elc wide-edit.elc buffer-colors.elc \
+ list-register.elc
EXPLICIT_DOCS = $(PACKAGE).texi tempo.texi
diff -r 0b8f0909d603 -r 0e897126330c list-register.el
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/list-register.el Sat Dec 15 00:29:08 2012 +0100
＠＠ -0,0 +1,399 ＠＠
+;;; list-register.el --- List register
+;; -*- Mode: Emacs-Lisp -*-
+
+;; $Id: list-register.el,v 2.2 2008/02/12 09:17:09 akihisa Exp $
+
+;; This program 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, or (at
+;; your option) any later version.
+
+;; This program 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; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Install:
+
+;; Put this file into load-path'ed directory, and byte compile it if
+;; desired. And put the following expression into your ~/.emacs.
+;;
+;; (require 'list-register)
+
+;; The latest version of this program can be downloaded from
+;; http://www.bookshelf.jp/elc/list-register.el
+
+;; M-x list-register
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+(defvar list-register-buffer "*reg Output*")
+(defvar list-register-edit-buffer "*Edit Register*")
+
+;; internal
+(defvar list-register-mode-map nil)
+(defvar list-register-edit-mode-map nil)
+(defvar list-register-parent-buffer nil)
+(defvar list-register-edit-reg nil)
+
+;; util
+(defun current-line ()
+ "Return the vertical position of point..."
+ (1+ (count-lines 1 (point))))
+
+(defun max-line ()
+ "Return the vertical position of point..."
+ (save-excursion
+ (goto-char (point-max))
+ (current-line)))
+
+(or list-register-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "e"
+ (function list-register-edit-text))
+ (define-key map "\C-m"
+ (function list-register-insert))
+ (define-key map "q"
+ (function list-register-quit))
+ (define-key map "p"
+ (function previous-line))
+ (define-key map "n"
+ (function next-line))
+ (define-key map "+"
+ (function list-register-increment))
+ (define-key map "-"
+ (function list-register-decrement))
+
+ (setq list-register-mode-map map)))
+
+(or list-register-edit-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "\C-c\C-c"
+ (function list-register-edit-quit))
+ (define-key map "\C-c\C-q"
+ (function list-register-edit-cancel))
+ (define-key map "\C-c\C-s"
+ (function list-register-edit-set-register))
+ (setq list-register-edit-mode-map map)))
+
+(defun list-register-quit ()
+ "Exit *list-register* buffer."
+ (interactive)
+ (set-buffer list-register-parent-buffer)
+ (condition-case ()
+ (delete-window (get-buffer-window list-register-buffer))
+ (error ))
+ (kill-buffer list-register-buffer))
+
+(defun list-register-change-number (num)
+ "Add number of register to NUM."
+ (let (reg str)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward "^[ \n]*\\([^\n:]+\\):[ \n]*\\([^:\n]+\\):.+$"
+ (line-end-position) t)
+ (progn
+ (setq reg (buffer-substring
+ (match-beginning 1) (match-end 1)))
+ (setq str (buffer-substring
+ (match-beginning 2) (match-end 2)))))
+ (if (string-match "num" str)
+ (increment-register num (string-to-char reg))
+ (message "Register does not contain a number!"))))
+ (list-register-review))
+
+(defun list-register-increment (num)
+ "Add number of register to NUM."
+ (interactive "nIncrement Num: ")
+ (list-register-change-number num))
+
+(defun list-register-decrement (num)
+ "Subtract NUM from number of register."
+ (interactive "nDecrement Num: ")
+ (list-register-change-number (* -1 num)))
+
+;; edit register
+(defun list-register-edit-text-do (reg)
+ "Make the buffer to edit text of REG."
+ (switch-to-buffer (get-buffer-create list-register-edit-buffer))
+ (erase-buffer)
+
+ (list-insert-register (string-to-char reg))
+ (kill-all-local-variables)
+ (make-local-variable 'list-register-edit-reg)
+ (setq list-register-edit-reg reg)
+
+ (use-local-map list-register-edit-mode-map))
+
+(defun list-register-edit-text ()
+ "Edit text of register of current line."
+ (interactive)
+ (let (reg str)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward
+ "^[ \n]*\\([^\n:]+\\):[ \n]*\\([^:\n]+\\):.+$"
+ (line-end-position) t)
+ (progn
+ (setq reg (buffer-substring
+ (match-beginning 1) (match-end 1)))
+ (setq str (buffer-substring
+ (match-beginning 2) (match-end 2)))))
+ (if (string-match "[0-9]+" str)
+ (list-register-edit-text-do reg)
+ (message "Register does not contain a text!")))))
+
+(defun list-register-edit-quit ()
+ "Exit the buffer to edit the register."
+ (interactive)
+ (set-register
+ (string-to-char list-register-edit-reg)
+ (buffer-substring (point-min) (point-max)))
+ ;;(delete-window (get-buffer-window list-register-edit-buffer))
+ (kill-buffer list-register-edit-buffer)
+ (switch-to-buffer list-register-buffer)
+ (list-register-review))
+
+(defun list-register-edit-set-register (char)
+ "Save text of a register to another register (CHAR)."
+ (interactive "cCopy to register: ")
+ (set-register
+ char
+ (buffer-substring (point-min) (point-max)))
+ ;;(delete-window (get-buffer-window list-register-edit-buffer))
+ (kill-buffer list-register-edit-buffer)
+ (switch-to-buffer list-register-buffer)
+ (list-register-review))
+
+(defun list-register-edit-cancel ()
+ "Cancel to edit a register."
+ (interactive)
+ (kill-buffer list-register-edit-buffer)
+ (switch-to-buffer list-register-buffer))
+
+(defun list-register-insert ()
+ "Insert text of a register."
+ (interactive)
+ (let (reg str)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward
+ "^[ \n]*\\([^\n:]+\\):[ \n]*\\([^:\n]+\\):.+$"
+ (line-end-position) t)
+ (progn
+ (setq reg (buffer-substring
+ (match-beginning 1) (match-end 1)))
+ (setq str (buffer-substring
+ (match-beginning 2) (match-end 2)))))
+
+ (set-buffer list-register-parent-buffer)
+ (cond
+ ((or
+ (string-match "file" str)
+ (string-match "conf" str)
+ (string-match "pos" str))
+ (list-jump-to-register (string-to-char reg)))
+ ((or
+ (string-match "num" str)
+ (string-match "[0-9]+" str))
+ (list-insert-register (string-to-char reg))
+ (condition-case ()
+ (delete-window (get-buffer-window list-register-buffer))
+ (error ))
+ (kill-buffer list-register-buffer))))))
+
+(defun list-register-print-text (arg)
+ "Print the text of register of ARG."
+ (interactive "p")
+ (let ((x (get-register arg)) (w (- (window-width) 15))
+ str strtmp lines prev)
+ (setq str (split-string x "\n"))
+ (setq strtmp str)
+ (setq lines (format "%4d" (length str)))
+ (setq str (mapconcat (lambda (y) y) str " "))
+ (if (string-match "^[ \t]*$" str)
+ ()
+ (insert (format "%s: %s\n" lines
+ (truncate-string-to-width
+ (mapconcat (lambda (y) y) strtmp
+ "^J") w)))
+ (setq prev str))))
+
+(defun list-register ()
+ "List contents of register."
+ (interactive)
+ (let ((lst register-alist) val reg st (pbuf (current-buffer))
+ lines)
+ (with-output-to-temp-buffer list-register-buffer
+ (set-buffer list-register-buffer)
+ (kill-all-local-variables)
+
+ (make-local-variable 'list-register-parent-buffer)
+ (setq list-register-parent-buffer pbuf)
+
+ (use-local-map list-register-mode-map)
+
+ (princ "List of register\n")
+ (setq st (point))
+ (while lst
+ (setq reg (car lst))
+ (setq lst (cdr lst))
+ (princ
+ (concat
+ ;;"-------------------------------------------------\n"
+ (format "%3s"
+ (single-key-description (car reg)))
+ ":"))
+ (setq val (get-register (car reg)))
+ (cond
+ ((numberp val)
+ (insert " num:")
+ (insert (int-to-string val))
+ (insert "\n"))
+
+ ((markerp val)
+ (insert " pos:")
+ (let ((buf (marker-buffer val)))
+ (if (null buf)
+ (insert "a marker in no buffer")
+ (insert "a buffer position:")
+ (insert (buffer-name buf))
+ (insert ", position ")
+ (insert (int-to-string (marker-position val)))
+ (insert "\n"))))
+
+ ((and (consp val) (window-configuration-p (car val)))
+ (insert "conf:a window configuration.\n"))
+
+ ((and (consp val) (frame-configuration-p (car val)))
+ (insert "conf:a frame configuration.\n"))
+
+ ((and (consp val) (eq (car val) 'file))
+ (insert "file:")
+ (prin1 (cdr val))
+ (insert ".\n"))
+
+ ((and (consp val) (eq (car val) 'file-query))
+ (insert "file:a file-query reference: file ")
+ (insert (car (cdr val)))
+ (insert ", position ")
+ (insert (int-to-string (car (cdr (cdr val)))))
+ (insert ".\n"))
+
+ ((consp val)
+ (setq lines (format "%4d" (length val)))
+ (insert (format "%s: %s\n" lines
+ (truncate-string-to-width
+ (mapconcat (lambda (y) y) val
+ "^J") (- (window-width) 15)))))
+ ((stringp val)
+ (list-register-print-text (car reg)))
+ (t
+ ;;(insert "Garbage:\n")
+ ;;(prin1 val))
+ )))
+ (sort-lines nil st (point-max))
+ (setq buffer-read-only t)))
+ (pop-to-buffer list-register-buffer))
+
+(defun list-register-review ()
+ "Update list-register buffer."
+ (let ((pbuf list-register-parent-buffer)
+ (cp (current-line)))
+ (list-register)
+ (next-line (- cp 1))
+ (setq list-register-parent-buffer pbuf)))
+
+(defun my-jump-to-register (&optional arg)
+ (interactive)
+ (let (char)
+ (message "Jump to register: ")
+ (list-register)
+ (setq char (read-char))
+ (list-jump-to-register char)))
+
+(defun data-to-register (arg)
+ (interactive "P")
+ (let ((char))
+ (message "Copy to register: ")
+ (setq char (read-char))
+ (cond
+ ((region-active-p) ;; XEmacs change
+ (if (and
+ (not (= (save-excursion
+ (goto-char (region-beginning)) (current-column))
+ (save-excursion
+ (goto-char (region-end)) (current-column))))
+ (not (= (save-excursion
+ (goto-char (region-beginning)) (current-line))
+ (save-excursion
+ (goto-char (region-end)) (current-line)))))
+ (if (y-or-n-p "Rectangle? ")
+ (progn
+ (copy-rectangle-to-register
+ char (region-beginning) (region-end) arg))
+ (set-register char (buffer-substring
+ (region-beginning) (region-end)))
+ (if arg
+ (delete-region (region-beginning) (region-end))))))
+ (t
+ (message "f)rame w)indow p)oint")
+ (let ((c (char-to-string (read-char))))
+ (cond
+ ((string-match "f" c)
+ (frame-configuration-to-register char arg))
+ ((string-match "w" c)
+ (window-configuration-to-register char arg))
+ ((string-match "p" c)
+ (point-to-register char arg))))))))
+
+(defun list-insert-register (register)
+ (push-mark)
+ (let ((val (get-register register)))
+ (cond
+ ((consp val)
+ (insert-rectangle val))
+ ((stringp val)
+ (insert val))
+ ((numberp val)
+ (princ val (current-buffer)))
+ ((and (markerp val) (marker-position val))
+ (princ (marker-position val) (current-buffer)))
+ (t
+ (error "Register does not contain text")))))
+
+(defun list-jump-to-register (register)
+ (let ((val (get-register register)))
+ (cond
+ ((and (consp val) (frame-configuration-p (car val)))
+ (set-frame-configuration (car val))
+ (goto-char (cadr val)))
+ ((and (consp val) (window-configuration-p (car val)))
+ (set-window-configuration (car val))
+ (goto-char (cadr val)))
+ ((markerp val)
+ (or (marker-buffer val)
+ (error "That register's buffer no longer exists"))
+ (switch-to-buffer (marker-buffer val))
+ (goto-char val))
+ ((and (consp val) (eq (car val) 'file))
+ (find-file (cdr val)))
+ ((and (consp val) (eq (car val) 'file-query))
+ (or (find-buffer-visiting (nth 1 val))
+ (y-or-n-p (format "Visit file %s again? " (nth 1 val)))
+ (error "Register access aborted"))
+ (find-file (nth 1 val))
+ (goto-char (nth 2 val)))
+ (t
+ (error "Register doesn't contain a buffer position or configuration")))))
+
+(provide 'list-register)
+;;; list-register.el ends here
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit/edit-utils: matsl: New. list-register.el. Thank you Akihisa Matsushita.
11 years, 4 months
Bitbucket
Bitbucket
1 new commit in edit-utils:
https://bitbucket.org/xemacs/edit-utils/changeset/0e897126330c/
changeset: 0e897126330c
user: matsl
date: 2012-12-15 00:29:08
summary: New. list-register.el. Thank you Akihisa Matsushita.
Changelog addition:
2012-12-11 Mats Lidell <matsl(a)xemacs.org>
* list-register.el: New. Thank you Akihisa Matsushita.
affected #: 3 files
diff -r 0b8f0909d60364601a1a1b10439a99eba7a587dc -r 0e897126330cbe4d90d9653532da1170d2165597 ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
＠＠ -1,3 +1,7 ＠＠
+2012-12-11 Mats Lidell <matsl(a)xemacs.org>
+
+ * list-register.el: New. Thank you Akihisa Matsushita.
+
2012-11-21 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 2.48 released.
diff -r 0b8f0909d60364601a1a1b10439a99eba7a587dc -r 0e897126330cbe4d90d9653532da1170d2165597 Makefile
--- a/Makefile
+++ b/Makefile
＠＠ -42,7 +42,8 ＠＠
toolbar-utils.elc tree-menu.elc uniquify.elc where-was-i-db.elc \
winring.elc vertical-mode.elc power-macros.elc icon-themes.elc \
search-buffers.elc setnu.elc align.elc autorevert.elc allout.elc \
- narrow-stack.elc highline.elc crm.elc wide-edit.elc buffer-colors.elc
+ narrow-stack.elc highline.elc crm.elc wide-edit.elc buffer-colors.elc \
+ list-register.elc
EXPLICIT_DOCS = $(PACKAGE).texi tempo.texi
diff -r 0b8f0909d60364601a1a1b10439a99eba7a587dc -r 0e897126330cbe4d90d9653532da1170d2165597 list-register.el
--- /dev/null
+++ b/list-register.el
＠＠ -0,0 +1,399 ＠＠
+;;; list-register.el --- List register
+;; -*- Mode: Emacs-Lisp -*-
+
+;; $Id: list-register.el,v 2.2 2008/02/12 09:17:09 akihisa Exp $
+
+;; This program 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, or (at
+;; your option) any later version.
+
+;; This program 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; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Install:
+
+;; Put this file into load-path'ed directory, and byte compile it if
+;; desired. And put the following expression into your ~/.emacs.
+;;
+;; (require 'list-register)
+
+;; The latest version of this program can be downloaded from
+;; http://www.bookshelf.jp/elc/list-register.el
+
+;; M-x list-register
+
+
+;;; Commentary:
+;;
+
+;;; Code:
+(defvar list-register-buffer "*reg Output*")
+(defvar list-register-edit-buffer "*Edit Register*")
+
+;; internal
+(defvar list-register-mode-map nil)
+(defvar list-register-edit-mode-map nil)
+(defvar list-register-parent-buffer nil)
+(defvar list-register-edit-reg nil)
+
+;; util
+(defun current-line ()
+ "Return the vertical position of point..."
+ (1+ (count-lines 1 (point))))
+
+(defun max-line ()
+ "Return the vertical position of point..."
+ (save-excursion
+ (goto-char (point-max))
+ (current-line)))
+
+(or list-register-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "e"
+ (function list-register-edit-text))
+ (define-key map "\C-m"
+ (function list-register-insert))
+ (define-key map "q"
+ (function list-register-quit))
+ (define-key map "p"
+ (function previous-line))
+ (define-key map "n"
+ (function next-line))
+ (define-key map "+"
+ (function list-register-increment))
+ (define-key map "-"
+ (function list-register-decrement))
+
+ (setq list-register-mode-map map)))
+
+(or list-register-edit-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "\C-c\C-c"
+ (function list-register-edit-quit))
+ (define-key map "\C-c\C-q"
+ (function list-register-edit-cancel))
+ (define-key map "\C-c\C-s"
+ (function list-register-edit-set-register))
+ (setq list-register-edit-mode-map map)))
+
+(defun list-register-quit ()
+ "Exit *list-register* buffer."
+ (interactive)
+ (set-buffer list-register-parent-buffer)
+ (condition-case ()
+ (delete-window (get-buffer-window list-register-buffer))
+ (error ))
+ (kill-buffer list-register-buffer))
+
+(defun list-register-change-number (num)
+ "Add number of register to NUM."
+ (let (reg str)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward "^[ \n]*\\([^\n:]+\\):[ \n]*\\([^:\n]+\\):.+$"
+ (line-end-position) t)
+ (progn
+ (setq reg (buffer-substring
+ (match-beginning 1) (match-end 1)))
+ (setq str (buffer-substring
+ (match-beginning 2) (match-end 2)))))
+ (if (string-match "num" str)
+ (increment-register num (string-to-char reg))
+ (message "Register does not contain a number!"))))
+ (list-register-review))
+
+(defun list-register-increment (num)
+ "Add number of register to NUM."
+ (interactive "nIncrement Num: ")
+ (list-register-change-number num))
+
+(defun list-register-decrement (num)
+ "Subtract NUM from number of register."
+ (interactive "nDecrement Num: ")
+ (list-register-change-number (* -1 num)))
+
+;; edit register
+(defun list-register-edit-text-do (reg)
+ "Make the buffer to edit text of REG."
+ (switch-to-buffer (get-buffer-create list-register-edit-buffer))
+ (erase-buffer)
+
+ (list-insert-register (string-to-char reg))
+ (kill-all-local-variables)
+ (make-local-variable 'list-register-edit-reg)
+ (setq list-register-edit-reg reg)
+
+ (use-local-map list-register-edit-mode-map))
+
+(defun list-register-edit-text ()
+ "Edit text of register of current line."
+ (interactive)
+ (let (reg str)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward
+ "^[ \n]*\\([^\n:]+\\):[ \n]*\\([^:\n]+\\):.+$"
+ (line-end-position) t)
+ (progn
+ (setq reg (buffer-substring
+ (match-beginning 1) (match-end 1)))
+ (setq str (buffer-substring
+ (match-beginning 2) (match-end 2)))))
+ (if (string-match "[0-9]+" str)
+ (list-register-edit-text-do reg)
+ (message "Register does not contain a text!")))))
+
+(defun list-register-edit-quit ()
+ "Exit the buffer to edit the register."
+ (interactive)
+ (set-register
+ (string-to-char list-register-edit-reg)
+ (buffer-substring (point-min) (point-max)))
+ ;;(delete-window (get-buffer-window list-register-edit-buffer))
+ (kill-buffer list-register-edit-buffer)
+ (switch-to-buffer list-register-buffer)
+ (list-register-review))
+
+(defun list-register-edit-set-register (char)
+ "Save text of a register to another register (CHAR)."
+ (interactive "cCopy to register: ")
+ (set-register
+ char
+ (buffer-substring (point-min) (point-max)))
+ ;;(delete-window (get-buffer-window list-register-edit-buffer))
+ (kill-buffer list-register-edit-buffer)
+ (switch-to-buffer list-register-buffer)
+ (list-register-review))
+
+(defun list-register-edit-cancel ()
+ "Cancel to edit a register."
+ (interactive)
+ (kill-buffer list-register-edit-buffer)
+ (switch-to-buffer list-register-buffer))
+
+(defun list-register-insert ()
+ "Insert text of a register."
+ (interactive)
+ (let (reg str)
+ (save-excursion
+ (beginning-of-line)
+ (if (re-search-forward
+ "^[ \n]*\\([^\n:]+\\):[ \n]*\\([^:\n]+\\):.+$"
+ (line-end-position) t)
+ (progn
+ (setq reg (buffer-substring
+ (match-beginning 1) (match-end 1)))
+ (setq str (buffer-substring
+ (match-beginning 2) (match-end 2)))))
+
+ (set-buffer list-register-parent-buffer)
+ (cond
+ ((or
+ (string-match "file" str)
+ (string-match "conf" str)
+ (string-match "pos" str))
+ (list-jump-to-register (string-to-char reg)))
+ ((or
+ (string-match "num" str)
+ (string-match "[0-9]+" str))
+ (list-insert-register (string-to-char reg))
+ (condition-case ()
+ (delete-window (get-buffer-window list-register-buffer))
+ (error ))
+ (kill-buffer list-register-buffer))))))
+
+(defun list-register-print-text (arg)
+ "Print the text of register of ARG."
+ (interactive "p")
+ (let ((x (get-register arg)) (w (- (window-width) 15))
+ str strtmp lines prev)
+ (setq str (split-string x "\n"))
+ (setq strtmp str)
+ (setq lines (format "%4d" (length str)))
+ (setq str (mapconcat (lambda (y) y) str " "))
+ (if (string-match "^[ \t]*$" str)
+ ()
+ (insert (format "%s: %s\n" lines
+ (truncate-string-to-width
+ (mapconcat (lambda (y) y) strtmp
+ "^J") w)))
+ (setq prev str))))
+
+(defun list-register ()
+ "List contents of register."
+ (interactive)
+ (let ((lst register-alist) val reg st (pbuf (current-buffer))
+ lines)
+ (with-output-to-temp-buffer list-register-buffer
+ (set-buffer list-register-buffer)
+ (kill-all-local-variables)
+
+ (make-local-variable 'list-register-parent-buffer)
+ (setq list-register-parent-buffer pbuf)
+
+ (use-local-map list-register-mode-map)
+
+ (princ "List of register\n")
+ (setq st (point))
+ (while lst
+ (setq reg (car lst))
+ (setq lst (cdr lst))
+ (princ
+ (concat
+ ;;"-------------------------------------------------\n"
+ (format "%3s"
+ (single-key-description (car reg)))
+ ":"))
+ (setq val (get-register (car reg)))
+ (cond
+ ((numberp val)
+ (insert " num:")
+ (insert (int-to-string val))
+ (insert "\n"))
+
+ ((markerp val)
+ (insert " pos:")
+ (let ((buf (marker-buffer val)))
+ (if (null buf)
+ (insert "a marker in no buffer")
+ (insert "a buffer position:")
+ (insert (buffer-name buf))
+ (insert ", position ")
+ (insert (int-to-string (marker-position val)))
+ (insert "\n"))))
+
+ ((and (consp val) (window-configuration-p (car val)))
+ (insert "conf:a window configuration.\n"))
+
+ ((and (consp val) (frame-configuration-p (car val)))
+ (insert "conf:a frame configuration.\n"))
+
+ ((and (consp val) (eq (car val) 'file))
+ (insert "file:")
+ (prin1 (cdr val))
+ (insert ".\n"))
+
+ ((and (consp val) (eq (car val) 'file-query))
+ (insert "file:a file-query reference: file ")
+ (insert (car (cdr val)))
+ (insert ", position ")
+ (insert (int-to-string (car (cdr (cdr val)))))
+ (insert ".\n"))
+
+ ((consp val)
+ (setq lines (format "%4d" (length val)))
+ (insert (format "%s: %s\n" lines
+ (truncate-string-to-width
+ (mapconcat (lambda (y) y) val
+ "^J") (- (window-width) 15)))))
+ ((stringp val)
+ (list-register-print-text (car reg)))
+ (t
+ ;;(insert "Garbage:\n")
+ ;;(prin1 val))
+ )))
+ (sort-lines nil st (point-max))
+ (setq buffer-read-only t)))
+ (pop-to-buffer list-register-buffer))
+
+(defun list-register-review ()
+ "Update list-register buffer."
+ (let ((pbuf list-register-parent-buffer)
+ (cp (current-line)))
+ (list-register)
+ (next-line (- cp 1))
+ (setq list-register-parent-buffer pbuf)))
+
+(defun my-jump-to-register (&optional arg)
+ (interactive)
+ (let (char)
+ (message "Jump to register: ")
+ (list-register)
+ (setq char (read-char))
+ (list-jump-to-register char)))
+
+(defun data-to-register (arg)
+ (interactive "P")
+ (let ((char))
+ (message "Copy to register: ")
+ (setq char (read-char))
+ (cond
+ ((region-active-p) ;; XEmacs change
+ (if (and
+ (not (= (save-excursion
+ (goto-char (region-beginning)) (current-column))
+ (save-excursion
+ (goto-char (region-end)) (current-column))))
+ (not (= (save-excursion
+ (goto-char (region-beginning)) (current-line))
+ (save-excursion
+ (goto-char (region-end)) (current-line)))))
+ (if (y-or-n-p "Rectangle? ")
+ (progn
+ (copy-rectangle-to-register
+ char (region-beginning) (region-end) arg))
+ (set-register char (buffer-substring
+ (region-beginning) (region-end)))
+ (if arg
+ (delete-region (region-beginning) (region-end))))))
+ (t
+ (message "f)rame w)indow p)oint")
+ (let ((c (char-to-string (read-char))))
+ (cond
+ ((string-match "f" c)
+ (frame-configuration-to-register char arg))
+ ((string-match "w" c)
+ (window-configuration-to-register char arg))
+ ((string-match "p" c)
+ (point-to-register char arg))))))))
+
+(defun list-insert-register (register)
+ (push-mark)
+ (let ((val (get-register register)))
+ (cond
+ ((consp val)
+ (insert-rectangle val))
+ ((stringp val)
+ (insert val))
+ ((numberp val)
+ (princ val (current-buffer)))
+ ((and (markerp val) (marker-position val))
+ (princ (marker-position val) (current-buffer)))
+ (t
+ (error "Register does not contain text")))))
+
+(defun list-jump-to-register (register)
+ (let ((val (get-register register)))
+ (cond
+ ((and (consp val) (frame-configuration-p (car val)))
+ (set-frame-configuration (car val))
+ (goto-char (cadr val)))
+ ((and (consp val) (window-configuration-p (car val)))
+ (set-window-configuration (car val))
+ (goto-char (cadr val)))
+ ((markerp val)
+ (or (marker-buffer val)
+ (error "That register's buffer no longer exists"))
+ (switch-to-buffer (marker-buffer val))
+ (goto-char val))
+ ((and (consp val) (eq (car val) 'file))
+ (find-file (cdr val)))
+ ((and (consp val) (eq (car val) 'file-query))
+ (or (find-buffer-visiting (nth 1 val))
+ (y-or-n-p (format "Visit file %s again? " (nth 1 val)))
+ (error "Register access aborted"))
+ (find-file (nth 1 val))
+ (goto-char (nth 2 val)))
+ (t
+ (error "Register doesn't contain a buffer position or configuration")))))
+
+(provide 'list-register)
+;;; list-register.el ends here
Repository URL: https://bitbucket.org/xemacs/edit-utils/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[COMMIT] Fix erroneous regular expression in register.el.
11 years, 4 months
The XEmacs Package Smoketest
The XEmacs Package Smoketest
APPROVE COMMIT
NOTE: This patch has been committed
# HG changeset patch
# User Mats Lidell <matsl(a)xemacs.org>
# Date 1355444376 -3600
# Node ID 9dc294ae3004d8bf4a793daeef11f559601ccb43
# Parent 7f4c8574a590f3e3457bdecf5716aa21a64626c8
Fix erroneous regular xpression in register.el. Thank you Stephen Turnbull.
lisp/ChangeLog additions:
2012-12-14 Mats Lidell <matsl(a)xemacs.org>
* register.el (describe-register-1): Fix erroneous regular
expression. Thank you Stephen Turnbull.
tests/ChangeLog additions:
2012-12-14 Mats Lidell <matsl(a)xemacs.org>
* automated/register-tests.el: New. Test for register.el. Test
case for bug in regular expression in describe-register-1
diff -r 7f4c8574a590 -r 9dc294ae3004 lisp/ChangeLog
--- a/lisp/ChangeLog Tue Nov 06 23:12:06 2012 +0000
+++ b/lisp/ChangeLog Fri Dec 14 01:19:36 2012 +0100
＠＠ -1,3 +1,8 ＠＠
+2012-12-14 Mats Lidell <matsl(a)xemacs.org>
+
+ * register.el (describe-register-1): Fix erroneous regular
+ expression. Thank you Stephen Turnbull.
+
2012-11-06 Aidan Kehoe <kehoea(a)parhasard.net>
* cl-macs.el (equal, member, assoc, rassoc):
diff -r 7f4c8574a590 -r 9dc294ae3004 lisp/register.el
--- a/lisp/register.el Tue Nov 06 23:12:06 2012 +0000
+++ b/lisp/register.el Fri Dec 14 01:19:36 2012 +0100
＠＠ -1,6 +1,6 ＠＠
;;; register.el --- register commands for Emacs
-;; Copyright (C) 1985, 1993, 1994, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1993, 1994, 1997, 2012 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal, dumped
＠＠ -237,7 +237,7 ＠＠
(princ val))
(cond
;; Extract first N characters starting with first non-whitespace.
- ((string-match (format "[^ \t\n].\\{,%d\\}"
+ ((string-match (format "[^ \t\n].\\{0,%d\\}"
;; Deduct 6 for the spaces inserted below.
(min 20 (max 0 (- (window-width) 6))))
val)
diff -r 7f4c8574a590 -r 9dc294ae3004 tests/ChangeLog
--- a/tests/ChangeLog Tue Nov 06 23:12:06 2012 +0000
+++ b/tests/ChangeLog Fri Dec 14 01:19:36 2012 +0100
＠＠ -1,3 +1,8 ＠＠
+2012-12-14 Mats Lidell <matsl(a)xemacs.org>
+
+ * automated/register-tests.el: New. Test for register.el. Test
+ case for bug in regular expression in describe-register-1
+
2012-10-13 Mats Lidell <matsl(a)xemacs.org>
* automated/process-tests.el: Simple test cases for
diff -r 7f4c8574a590 -r 9dc294ae3004 tests/automated/register-tests.el
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/automated/register-tests.el Fri Dec 14 01:19:36 2012 +0100
＠＠ -0,0 +1,48 ＠＠
+;; Copyright (C) 2012 Free Software Foundation, Inc.
+
+;; Author: Mats Lidell <matsl(a)xemacs.org>
+;; Maintainer:
+;; Created: 2012
+;; Keywords: tests
+
+;; This file is part of XEmacs.
+
+;; XEmacs 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.
+
+;; XEmacs 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 XEmacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Synched up with: Not in FSF.
+
+;;; Commentary:
+
+;; Test tag support.
+;; See test-harness.el for instructions on how to run these tests.
+
+(require 'test-harness)
+
+(let ((s "Short"))
+ (with-output-to-temp-buffer "*Output Register Tests*"
+ (set-register 'a s)
+ (Assert (equal (get-register 'a) s))
+ (Assert (equal (describe-register-1 'a t) s))
+ (Assert (equal (describe-register-1 'a) s))))
+
+;; describe-register-1 without verbose on depends on window-width
+;; which is 10!? in batch mode. Hence the short part of the string
+;; returned
+
+(let ((s "String longer than 5 chars"))
+ (with-output-to-temp-buffer "*Output Register Tests*"
+ (set-register 'a s)
+ (Assert (equal (get-register 'a) s))
+ (Assert (equal (describe-register-1 'a t) s))
+ (Assert (equal (describe-register-1 'a) (subseq s 0 5)))))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit/XEmacs: matsl: Fix erroneous regular xpression in register.el. Thank you Stephen Turnbull.
11 years, 4 months
Bitbucket
Bitbucket
1 new commit in XEmacs:
https://bitbucket.org/xemacs/xemacs/changeset/9dc294ae3004/
changeset: 9dc294ae3004
user: matsl
date: 2012-12-14 01:19:36
summary: Fix erroneous regular xpression in register.el. Thank you Stephen Turnbull.
lisp/ChangeLog additions:
2012-12-14 Mats Lidell <matsl(a)xemacs.org>
* register.el (describe-register-1): Fix erroneous regular
expression. Thank you Stephen Turnbull.
tests/ChangeLog additions:
2012-12-14 Mats Lidell <matsl(a)xemacs.org>
* automated/register-tests.el: New. Test for register.el. Test
case for bug in regular expression in describe-register-1
affected #: 4 files
diff -r 7f4c8574a590f3e3457bdecf5716aa21a64626c8 -r 9dc294ae3004d8bf4a793daeef11f559601ccb43 lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
＠＠ -1,3 +1,8 ＠＠
+2012-12-14 Mats Lidell <matsl(a)xemacs.org>
+
+ * register.el (describe-register-1): Fix erroneous regular
+ expression. Thank you Stephen Turnbull.
+
2012-11-06 Aidan Kehoe <kehoea(a)parhasard.net>
* cl-macs.el (equal, member, assoc, rassoc):
diff -r 7f4c8574a590f3e3457bdecf5716aa21a64626c8 -r 9dc294ae3004d8bf4a793daeef11f559601ccb43 lisp/register.el
--- a/lisp/register.el
+++ b/lisp/register.el
＠＠ -1,6 +1,6 ＠＠
;;; register.el --- register commands for Emacs
-;; Copyright (C) 1985, 1993, 1994, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1993, 1994, 1997, 2012 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal, dumped
＠＠ -237,7 +237,7 ＠＠
(princ val))
(cond
;; Extract first N characters starting with first non-whitespace.
- ((string-match (format "[^ \t\n].\\{,%d\\}"
+ ((string-match (format "[^ \t\n].\\{0,%d\\}"
;; Deduct 6 for the spaces inserted below.
(min 20 (max 0 (- (window-width) 6))))
val)
diff -r 7f4c8574a590f3e3457bdecf5716aa21a64626c8 -r 9dc294ae3004d8bf4a793daeef11f559601ccb43 tests/ChangeLog
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
＠＠ -1,3 +1,8 ＠＠
+2012-12-14 Mats Lidell <matsl(a)xemacs.org>
+
+ * automated/register-tests.el: New. Test for register.el. Test
+ case for bug in regular expression in describe-register-1
+
2012-10-13 Mats Lidell <matsl(a)xemacs.org>
* automated/process-tests.el: Simple test cases for
diff -r 7f4c8574a590f3e3457bdecf5716aa21a64626c8 -r 9dc294ae3004d8bf4a793daeef11f559601ccb43 tests/automated/register-tests.el
--- /dev/null
+++ b/tests/automated/register-tests.el
＠＠ -0,0 +1,48 ＠＠
+;; Copyright (C) 2012 Free Software Foundation, Inc.
+
+;; Author: Mats Lidell <matsl(a)xemacs.org>
+;; Maintainer:
+;; Created: 2012
+;; Keywords: tests
+
+;; This file is part of XEmacs.
+
+;; XEmacs 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.
+
+;; XEmacs 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 XEmacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Synched up with: Not in FSF.
+
+;;; Commentary:
+
+;; Test tag support.
+;; See test-harness.el for instructions on how to run these tests.
+
+(require 'test-harness)
+
+(let ((s "Short"))
+ (with-output-to-temp-buffer "*Output Register Tests*"
+ (set-register 'a s)
+ (Assert (equal (get-register 'a) s))
+ (Assert (equal (describe-register-1 'a t) s))
+ (Assert (equal (describe-register-1 'a) s))))
+
+;; describe-register-1 without verbose on depends on window-width
+;; which is 10!? in batch mode. Hence the short part of the string
+;; returned
+
+(let ((s "String longer than 5 chars"))
+ (with-output-to-temp-buffer "*Output Register Tests*"
+ (set-register 'a s)
+ (Assert (equal (get-register 'a) s))
+ (Assert (equal (describe-register-1 'a t) s))
+ (Assert (equal (describe-register-1 'a) (subseq s 0 5)))))
Repository URL: https://bitbucket.org/xemacs/xemacs/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit/xemacs-packages: 3 new changesets
11 years, 4 months
Bitbucket
Bitbucket
3 new commits in xemacs-packages:
https://bitbucket.org/xemacs/xemacs-packages/changeset/393d1990bcca/
changeset: 393d1990bcca
user: Norbert Koch
date: 2012-12-10 09:26:54
summary: update cc-mode
affected #: 1 file
diff -r 2d8f29e7c9af2233e115929c8f4416433c0e36fc -r 393d1990bccac5061d5ca96e0615e6b8dc8d3ac9 .hgsubstate
--- a/.hgsubstate
+++ b/.hgsubstate
＠＠ -17,7 +17,7 ＠＠
da4e7d4a51c502e5ac05a224cb756f382f0ba4d7 xemacs-packages/c-support
11074b3808d1e349f3fddb3c4d50f8be7c0f859e xemacs-packages/calc
7524e4fb9de45d77812090a724fac4ebd7549d6e xemacs-packages/calendar
-40708b7098aaf466959a77d8a94d44d9b4a54754 xemacs-packages/cc-mode
+8049c203893b1808307707a3bab2155dcb2f7f17 xemacs-packages/cc-mode
a7ae1cfb2376bcd32617c1c88afe08872b11d298 xemacs-packages/cedet-common
87dd21fac17ea98219267b1378b4696698d6c4ff xemacs-packages/clearcase
e18acdbfcd36295d052cd56fa2e6d78c68b4b7d4 xemacs-packages/cogre
https://bitbucket.org/xemacs/xemacs-packages/changeset/43b3b6ece0fb/
changeset: 43b3b6ece0fb
user: Norbert Koch
date: 2012-12-10 09:27:31
summary: XEmacs Package Release
affected #: 1 file
diff -r 393d1990bccac5061d5ca96e0615e6b8dc8d3ac9 -r 43b3b6ece0fb790dc2a7f2852962b0151b9073f0 ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
＠＠ -1,3 +1,7 ＠＠
+2012-12-10 Norbert Koch <viteno(a)xemacs.org>
+
+ * Packages released: cc-mode.
+
2012-11-21 Norbert Koch <viteno(a)xemacs.org>
* Packages released: edit-utils.
https://bitbucket.org/xemacs/xemacs-packages/changeset/1e50755007ba/
changeset: 1e50755007ba
user: Norbert Koch
date: 2012-12-10 09:45:57
summary: pre-release cc-mode
affected #: 1 file
diff -r 43b3b6ece0fb790dc2a7f2852962b0151b9073f0 -r 1e50755007bae9a5360f6e8ecae1d9881896456a .hgsubstate
--- a/.hgsubstate
+++ b/.hgsubstate
＠＠ -17,7 +17,7 ＠＠
da4e7d4a51c502e5ac05a224cb756f382f0ba4d7 xemacs-packages/c-support
11074b3808d1e349f3fddb3c4d50f8be7c0f859e xemacs-packages/calc
7524e4fb9de45d77812090a724fac4ebd7549d6e xemacs-packages/calendar
-8049c203893b1808307707a3bab2155dcb2f7f17 xemacs-packages/cc-mode
+0c31562f87fd76a707124ecddba15835454e25d9 xemacs-packages/cc-mode
a7ae1cfb2376bcd32617c1c88afe08872b11d298 xemacs-packages/cedet-common
87dd21fac17ea98219267b1378b4696698d6c4ff xemacs-packages/clearcase
e18acdbfcd36295d052cd56fa2e6d78c68b4b7d4 xemacs-packages/cogre
Repository URL: https://bitbucket.org/xemacs/xemacs-packages/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit/cc-mode: 2 new changesets
11 years, 4 months
Bitbucket
Bitbucket
2 new commits in cc-mode:
https://bitbucket.org/xemacs/cc-mode/changeset/46f8e9f7f817/
changeset: 46f8e9f7f817
user: Norbert Koch
date: 2012-12-10 09:27:31
summary: XEmacs Package Release 1.58
affected #: 2 files
diff -r 8049c203893b1808307707a3bab2155dcb2f7f17 -r 46f8e9f7f8174bdf529daf1577892b212c566d5b ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
＠＠ -1,3 +1,7 ＠＠
+2012-12-10 Norbert Koch <viteno(a)xemacs.org>
+
+ * Makefile (VERSION): XEmacs package 1.58 released.
+
2012-09-11 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.57 released.
diff -r 8049c203893b1808307707a3bab2155dcb2f7f17 -r 46f8e9f7f8174bdf529daf1577892b212c566d5b Makefile
--- a/Makefile
+++ b/Makefile
＠＠ -17,7 +17,7 ＠＠
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
-VERSION = 1.57
+VERSION = 1.58
AUTHOR_VERSION = 5.32.2
MAINTAINER = Alan Mackenzie <bug-cc-mode(a)gnu.org>
PACKAGE = cc-mode
https://bitbucket.org/xemacs/cc-mode/changeset/0c31562f87fd/
changeset: 0c31562f87fd
user: Norbert Koch
date: 2012-12-10 09:27:31
summary: Added tag cc-mode-1_58 for changeset 46f8e9f7f817
affected #: 1 file
diff -r 46f8e9f7f8174bdf529daf1577892b212c566d5b -r 0c31562f87fd76a707124ecddba15835454e25d9 .hgtags
--- a/.hgtags
+++ b/.hgtags
＠＠ -90,3 +90,4 ＠＠
c6a1f4bc808ef2c7d08ba5147537e99b40c78ce4 cc-mode-1_55
2475272d8bae991446e6b5fe927fb9a489b6df5d cc-mode-1_56
a9aff1813e2a4aa3d8af1ae40b69bcaf033f7905 cc-mode-1_57
+46f8e9f7f8174bdf529daf1577892b212c566d5b cc-mode-1_58
Repository URL: https://bitbucket.org/xemacs/cc-mode/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
commit/cc-mode: 2 new changesets
11 years, 4 months
Bitbucket
Bitbucket
2 new commits in cc-mode:
https://bitbucket.org/xemacs/cc-mode/changeset/e5984b8a18d4/
changeset: e5984b8a18d4
user: acm
date: 2012-12-09 22:12:34
summary: Make CC Mode not hang when _some_ lines end in CRLF.
cc-engine.el (c-backward-comments): Add code to work around
`forward-comment' not recognizing ^M as whitespace.
affected #: 1 file
diff -r 6bf70f1270efe5b5d6ec57d59153918ef0c8a145 -r e5984b8a18d4489a66329d3ab3d696764c896092 cc-engine.el
--- a/cc-engine.el
+++ b/cc-engine.el
＠＠ -1454,8 +1454,21 ＠＠
;; return t when moving backwards at bob.
(not (bobp))
- (if (let (open-paren-in-column-0-is-defun-start)
- (forward-comment -1))
+ (if (let (open-paren-in-column-0-is-defun-start moved-comment)
+ (while
+ (and (not (setq moved-comment (forward-comment -1)))
+ ;; Cope specifically with ^M^J here -
+ ;; forward-comment sometimes gets stuck after ^Ms,
+ ;; sometimes after ^M^J.
+ (or
+ (when (eq (char-before) ?\r)
+ (backward-char)
+ t)
+ (when (and (eq (char-before) ?\n)
+ (eq (char-before (1- (point))) ?\r))
+ (backward-char 2)
+ t))))
+ moved-comment)
(if (looking-at "\\*/")
;; Emacs <= 20 and XEmacs move back over the
;; closer of a block comment that lacks an opener.
https://bitbucket.org/xemacs/cc-mode/changeset/8049c203893b/
changeset: 8049c203893b
user: acm
date: 2012-12-09 22:43:30
summary: Merge.
affected #: 3 files
diff -r e5984b8a18d4489a66329d3ab3d696764c896092 -r 8049c203893b1808307707a3bab2155dcb2f7f17 .hgtags
--- a/.hgtags
+++ b/.hgtags
＠＠ -89,3 +89,4 ＠＠
f1a6c0e647399eba8c3511db89520f0efc63d535 cc-mode-1_54
c6a1f4bc808ef2c7d08ba5147537e99b40c78ce4 cc-mode-1_55
2475272d8bae991446e6b5fe927fb9a489b6df5d cc-mode-1_56
+a9aff1813e2a4aa3d8af1ae40b69bcaf033f7905 cc-mode-1_57
diff -r e5984b8a18d4489a66329d3ab3d696764c896092 -r 8049c203893b1808307707a3bab2155dcb2f7f17 ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
＠＠ -1,3 +1,7 ＠＠
+2012-09-11 Norbert Koch <viteno(a)xemacs.org>
+
+ * Makefile (VERSION): XEmacs package 1.57 released.
+
2012-09-03 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.56 released.
diff -r e5984b8a18d4489a66329d3ab3d696764c896092 -r 8049c203893b1808307707a3bab2155dcb2f7f17 Makefile
--- a/Makefile
+++ b/Makefile
＠＠ -17,7 +17,7 ＠＠
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
-VERSION = 1.56
+VERSION = 1.57
AUTHOR_VERSION = 5.32.2
MAINTAINER = Alan Mackenzie <bug-cc-mode(a)gnu.org>
PACKAGE = cc-mode
Repository URL: https://bitbucket.org/xemacs/cc-mode/
--
This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments