July 2006 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/07/05 23:51:15 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1583 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1582 retrieving revision 1.1583 diff -u -p -r1.1582 -r1.1583 --- version.sh 2006/07/04 21:51:08 1.1582 +++ version.sh 2006/07/05 21:51:14 1.1583 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060704)" +xemacs_extra_name="(+CVS-20060705)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 23:55:05 Modified: packages/unsupported/scop/vc ChangeLog Makefile Log: 0.05. Revision Changes Path 1.57 +2 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.56 retrieving revision 1.57 diff -u -p -r1.56 -r1.57 --- ChangeLog 2006/07/04 21:52:22 1.56 +++ ChangeLog 2006/07/04 21:55:05 1.57 ＠＠ -1,5 +1,7 ＠＠ 2006-07-04 Ville Skyttä <scop(a)xemacs.org> + * Makefile (VERSION): 0.05. + * vc-git.el: New, from git upstream. (vc-git-print-log): Add optional BUFFER arg, use it. (vc-git-diff): Ditto. 1.10 +1 -1 XEmacs/packages/unsupported/scop/vc/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/Makefile,v retrieving revision 1.9 retrieving revision 1.10 diff -u -p -r1.9 -r1.10 --- Makefile 2006/07/04 21:52:23 1.9 +++ Makefile 2006/07/04 21:55:05 1.10 ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 0.04 +VERSION = 0.05 AUTHOR_VERSION = MAINTAINER = Ville Skyttä <scop(a)xemacs.org> PACKAGE = vc

1 participants
0 comments

CVS update by scop packages/unsupported/scop ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 23:54:24 Modified: packages/unsupported/scop STATUS Log: vc status update. Revision Changes Path 1.65 +3 -3 XEmacs/packages/unsupported/scop/STATUS Index: STATUS =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/STATUS,v retrieving revision 1.64 retrieving revision 1.65 diff -u -p -r1.64 -r1.65 --- STATUS 2006/06/28 12:03:01 1.64 +++ STATUS 2006/07/04 21:54:23 1.65 ＠＠ -16,6 +16,6 ＠＠ generic-modes: generic.el and generic-x. - Up to date with GNU Emacs CVS HEAD as of 2006-06-28. - Compiles, seems to work, auto-mode-alist and autoloads may need spanking. -vc: vc*.el and a few other related files from GNU Emacs -- Up to date with GNU Emacs CVS HEAD as of 2006-06-28. -- Compiles, something even works. +vc: vc*.el and a few other related files from GNU Emacs, vc-git.el from git +- Up to date with GNU Emacs CVS HEAD, git upstream as of 2006-07-04. +- Approaching usable state.

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc, package-info.in ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 23:52:24 Modified: packages/unsupported/scop/vc ChangeLog Makefile package-info.in vc-hooks.el Added: packages/unsupported/scop/vc vc-git.el Log: Add git backend from git upstream + a couple of fixes. Revision Changes Path 1.56 +8 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.55 retrieving revision 1.56 diff -u -p -r1.55 -r1.56 --- ChangeLog 2006/07/04 21:48:05 1.55 +++ ChangeLog 2006/07/04 21:52:22 1.56 ＠＠ -1,5 +1,13 ＠＠ 2006-07-04 Ville Skyttä <scop(a)xemacs.org> + * vc-git.el: New, from git upstream. + (vc-git-print-log): Add optional BUFFER arg, use it. + (vc-git-diff): Ditto. + * vc-hooks.el (vc-handled-backends): Add GIT. + (vc-mode-line): Ditto. + * package-info.in (provides): Add vc-git. + * Makefile (ELCS): Add vc-git.elc. + * vc.el (vc-coding-system-for-diff): We don't have `find-operation-coding-system'. 1.9 +2 -2 XEmacs/packages/unsupported/scop/vc/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/Makefile,v retrieving revision 1.8 retrieving revision 1.9 diff -u -p -r1.8 -r1.9 --- Makefile 2006/06/12 19:31:41 1.8 +++ Makefile 2006/07/04 21:52:23 1.9 ＠＠ -25,7 +25,7 ＠＠ PKG_TYPE = regular REQUIRES = dired xemacs-base vc mail-lib ediff sh-script pcl-cvs tramp CATEGORY = unsupported -ELCS = vc-hooks.elc vc.elc vc-arch.elc vc-cvs.elc vc-mcvs.elc vc-rcs.elc \ - vc-sccs.elc vc-svn.elc vc-xemacs.elc log-edit.elc +ELCS = vc-hooks.elc vc.elc vc-arch.elc vc-cvs.elc vc-git.elc vc-mcvs.elc \ + vc-rcs.elc vc-sccs.elc vc-svn.elc vc-xemacs.elc log-edit.elc include ../../../XEmacs.rules 1.5 +1 -1 XEmacs/packages/unsupported/scop/vc/package-info.in Index: package-info.in =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/package-info.in,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- package-info.in 2005/12/05 11:26:28 1.4 +++ package-info.in 2006/07/04 21:52:23 1.5 ＠＠ -13,7 +13,7 ＠＠ filename FILENAME md5sum MD5SUM size SIZE - provides (vc vc-hooks vc-arch vc-cvs vc-mcvs vc-rcs vc-sccs vc-svn vc-xemacs log-edit) + provides (vc vc-hooks vc-arch vc-cvs vc-git vc-mcvs vc-rcs vc-sccs vc-svn vc-xemacs log-edit) requires (REQUIRES) type regular )) 1.12 +4 -2 XEmacs/packages/unsupported/scop/vc/vc-hooks.el Index: vc-hooks.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc-hooks.el,v retrieving revision 1.11 retrieving revision 1.12 diff -u -p -r1.11 -r1.12 --- vc-hooks.el 2006/04/20 21:32:29 1.11 +++ vc-hooks.el 2006/07/04 21:52:23 1.12 ＠＠ -59,7 +59,8 ＠＠ The default regexp prevents fruitless an to determine the VC status in directories in which filenames are interpreted as hostnames.") -(defcustom vc-handled-backends '(RCS CVS SVN SCCS Arch MCVS) +;; XEmacs change: add GIT +(defcustom vc-handled-backends '(RCS CVS SVN SCCS Arch MCVS GIT) ;; Arch and MCVS come last because they are per-tree rather than per-dir. "*List of version control backends for which VC will be used. Entries in this list will be tried in order to determine whether a ＠＠ -716,7 +717,8 ＠＠ visiting FILE." (setq vc-mode (let* ((str (if vc-display-status (vc-call mode-line-string file) (symbol-name backend))) - (test-str "^\$RCS\\|CVS\\|SVN\\|SCCS\\|Arch\\|MCVS\$-") + ;; XEmacs change: add GIT + (test-str "^\$RCS\\|CVS\\|SVN\\|SCCS\\|Arch\\|MCVS\\|GIT\$-") (not-locked (string-match test-str str))) (if (or not-locked (not vc-mode-face)) (concat " " str) 1.1 XEmacs/packages/unsupported/scop/vc/vc-git.el Index: vc-git.el =================================================================== ;;; vc-git.el --- VC backend for the git version control system ;; Copyright (C) 2006 Alexandre Julliard ;; 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 2 of ;; the License, 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 this program; if not, write to the Free ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, ;; MA 02111-1307 USA ;;; Commentary: ;; This file contains a VC backend for the git version control ;; system. ;; ;; To install: put this file on the load-path and add GIT to the list ;; of supported backends in `vc-handled-backends'. ;; ;; TODO ;; - changelog generation ;; - working with revisions other than HEAD ;; (defvar git-commits-coding-system 'utf-8 "Default coding system for git commits.") (defun vc-git--run-command-string (file &rest args) "Run a git command on FILE and return its output as string." (let* ((ok t) (str (with-output-to-string (with-current-buffer standard-output (unless (eq 0 (apply #'call-process "git" nil '(t nil) nil (append args (list (file-relative-name file))))) (setq ok nil)))))) (and ok str))) (defun vc-git--run-command (file &rest args) "Run a git command on FILE, discarding any output." (let ((name (file-relative-name file))) (eq 0 (apply #'call-process "git" nil (get-buffer "*Messages") nil (append args (list name)))))) (defun vc-git-registered (file) "Check whether FILE is registered with git." (with-temp-buffer (let* ((dir (file-name-directory file)) (name (file-relative-name file dir))) (when dir (cd dir)) (and (eq 0 (call-process "git" nil '(t nil) nil "ls-files" "-c" "-z" "--" name)) (let ((str (buffer-string))) (and (> (length str) (length name)) (string= (substring str 0 (1+ (length name))) (concat name "\0")))))))) (defun vc-git-state (file) "git-specific version of `vc-state'." (let ((diff (vc-git--run-command-string file "diff-index" "-z" "HEAD" "--"))) (if (and diff (string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} [ADMU]\0[^\0]+\0" diff)) 'edited 'up-to-date))) (defun vc-git-workfile-version (file) "git-specific version of `vc-workfile-version'." (let ((str (with-output-to-string (with-current-buffer standard-output (call-process "git" nil '(t nil) nil "symbolic-ref" "HEAD"))))) (if (string-match "^\$refs/heads/\$?\$.+\$$" str) (match-string 2 str) str))) (defun vc-git-revert (file &optional contents-done) "Revert FILE to the version stored in the git repository." (if contents-done (vc-git--run-command file "update-index" "--") (vc-git--run-command file "checkout" "HEAD"))) (defun vc-git-checkout-model (file) 'implicit) (defun vc-git-workfile-unchanged-p (file) (let ((sha1 (vc-git--run-command-string file "hash-object" "--")) (head (vc-git--run-command-string file "ls-tree" "-z" "HEAD" "--"))) (and head (string-match "[0-7]\\{6\\} blob \$[0-9a-f]\\{40\\}\$\t[^\0]+\0" head) (string= (car (split-string sha1 "\n")) (match-string 1 head))))) (defun vc-git-register (file &optional rev comment) "Register FILE into the git version-control system." (vc-git--run-command file "update-index" "--add" "--")) ;; XEmacs change: add optional BUFFER arg, use it (defun vc-git-print-log (file &optional buffer) (let ((name (file-relative-name file)) (coding-system-for-read git-commits-coding-system)) (vc-do-command buffer 'async "git" name "rev-list" "--pretty" "HEAD" "--"))) ;; XEmacs change: add optional BUFFER arg, use it (defun vc-git-diff (file &optional rev1 rev2 buffer) (let ((name (file-relative-name file)) (buf (or buffer "*vc-diff*"))) (if (and rev1 rev2) (vc-do-command buf 0 "git" name "diff-tree" "-p" rev1 rev2 "--") (vc-do-command buf 0 "git" name "diff-index" "-p" (or rev1 "HEAD") "--")) ; git-diff-index doesn't set exit status like diff does (if (vc-git-workfile-unchanged-p file) 0 1))) (defun vc-git-checkin (file rev comment) (let ((coding-system-for-write git-commits-coding-system)) (vc-git--run-command file "commit" "-m" comment "--only" "--"))) (defun vc-git-checkout (file &optional editable rev destfile) (vc-git--run-command file "checkout" (or rev "HEAD"))) (defun vc-git-annotate-command (file buf &optional rev) ; FIXME: rev is ignored (let ((name (file-relative-name file))) (call-process "git" nil buf nil "annotate" name))) (defun vc-git-annotate-time () (and (re-search-forward "[0-9a-f]+\t(.*\t\$[0-9]+\$-\$[0-9]+\$-\$[0-9]+\$ \$[0-9]+\$:\$[0-9]+\$:\$[0-9]+\$ \$[-+0-9]+\$\t[0-9]+)" nil t) (vc-annotate-convert-time (apply #'encode-time (mapcar (lambda (match) (string-to-number (match-string match))) '(6 5 4 3 2 1 7)))))) ;; Not really useful since we can't do anything with the revision yet ;;(defun vc-annotate-extract-revision-at-line () ;; (save-excursion ;; (move-beginning-of-line 1) ;; (and (looking-at "[0-9a-f]+") ;; (buffer-substring (match-beginning 0) (match-end 0))))) (provide 'vc-git)

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/07/04 23:51:09 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1582 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1581 retrieving revision 1.1582 diff -u -p -r1.1581 -r1.1582 --- version.sh 2006/07/03 21:51:14 1.1581 +++ version.sh 2006/07/04 21:51:08 1.1582 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060703)" +xemacs_extra_name="(+CVS-20060704)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 23:48:06 Modified: packages/unsupported/scop/vc ChangeLog vc.el Log: No find-operation-coding-system in XEmacs. Revision Changes Path 1.55 +3 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.54 retrieving revision 1.55 diff -u -p -r1.54 -r1.55 --- ChangeLog 2006/07/04 20:58:33 1.54 +++ ChangeLog 2006/07/04 21:48:05 1.55 ＠＠ -1,5 +1,8 ＠＠ 2006-07-04 Ville Skyttä <scop(a)xemacs.org> + * vc.el (vc-coding-system-for-diff): We don't have + `find-operation-coding-system'. + * vc.el (vc-revert-buffer): Don't try to delete the revert confirmation diff window for now as it breaks for some reason, and prevents the actual revert from happening. 1.32 +2 -1 XEmacs/packages/unsupported/scop/vc/vc.el Index: vc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc.el,v retrieving revision 1.31 retrieving revision 1.32 diff -u -p -r1.31 -r1.32 --- vc.el 2006/07/04 20:58:33 1.31 +++ vc.el 2006/07/04 21:48:05 1.32 ＠＠ -1940,7 +1940,8 ＠＠ The meaning of REV1 and REV2 is the same (if buf (with-current-buffer buf buffer-file-coding-system))) ;; otherwise, try to find one based on the file name - (car (find-operation-coding-system 'insert-file-contents file)) + ;; XEmacs change: no find-operation-coding-system + ;(car (find-operation-coding-system 'insert-file-contents file)) ;; and a final fallback 'undecided))

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 22:58:34 Modified: packages/unsupported/scop/vc ChangeLog vc.el Log: Q'n'd workaround for vc-revert-buffer diff window deletion problem. Revision Changes Path 1.54 +4 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.53 retrieving revision 1.54 diff -u -p -r1.53 -r1.54 --- ChangeLog 2006/07/04 20:11:50 1.53 +++ ChangeLog 2006/07/04 20:58:33 1.54 ＠＠ -1,5 +1,9 ＠＠ 2006-07-04 Ville Skyttä <scop(a)xemacs.org> + * vc.el (vc-revert-buffer): Don't try to delete the revert + confirmation diff window for now as it breaks for some + reason, and prevents the actual revert from happening. + * vc.el (vc-restore-buffer-context): Test for mark before using. * vc-xemacs.el: Comment update. 1.31 +10 -5 XEmacs/packages/unsupported/scop/vc/vc.el Index: vc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc.el,v retrieving revision 1.30 retrieving revision 1.31 diff -u -p -r1.30 -r1.31 --- vc.el 2006/07/04 20:11:50 1.30 +++ vc.el 2006/07/04 20:58:33 1.31 ＠＠ -2552,11 +2552,16 ＠＠ changes found in the master file; use \\ (unwind-protect (unless (yes-or-no-p "Discard changes? ") (error "Revert canceled")) - (select-window win) - (if (one-window-p t) - (if (window-dedicated-p (selected-window)) - (make-frame-invisible)) - (delete-window)))))) + ;; XEmacs change: (select-window win) below breaks for some + ;; reason, so disable for now to allow the actual revert a chance + ;; to succeed (leaves the opened *vc-diff* window hanging around): + ;; Wrong type argument: window-live-p, #<window 0x6ff7f4> + )))) +;; (select-window win) +;; (if (one-window-p t) +;; (if (window-dedicated-p (selected-window)) +;; (make-frame-invisible)) +;; (delete-window)))))) (set-buffer obuf) ;; Do the reverting (message "Reverting %s..." file)

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 22:11:51 Modified: packages/unsupported/scop/vc ChangeLog vc.el Log: Test for mark before using it. Revision Changes Path 1.53 +2 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.52 retrieving revision 1.53 diff -u -p -r1.52 -r1.53 --- ChangeLog 2006/07/04 20:08:46 1.52 +++ ChangeLog 2006/07/04 20:11:50 1.53 ＠＠ -1,5 +1,7 ＠＠ 2006-07-04 Ville Skyttä <scop(a)xemacs.org> + * vc.el (vc-restore-buffer-context): Test for mark before using. + * vc-xemacs.el: Comment update. 2006-06-28 Ville Skyttä <scop(a)xemacs.org> 1.30 +1 -1 XEmacs/packages/unsupported/scop/vc/vc.el Index: vc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc.el,v retrieving revision 1.29 retrieving revision 1.30 diff -u -p -r1.29 -r1.30 --- vc.el 2006/06/28 12:02:16 1.29 +++ vc.el 2006/07/04 20:11:50 1.30 ＠＠ -1148,7 +1148,7 ＠＠ CONTEXT is that which `vc-buffer-context (if (not (vc-context-matches-p (point) point-context)) (let ((new-point (vc-find-position-by-context point-context))) (if new-point (goto-char new-point)))) - (and ; mark-active ;; XEmacs: commented out + (and (mark) ;; XEmacs change: no mark-active mark-context (not (vc-context-matches-p (mark) mark-context)) (let ((new-mark (vc-find-position-by-context mark-context)))

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/04 22:08:47 Modified: packages/unsupported/scop/vc ChangeLog vc-xemacs.el Log: Comment update. Revision Changes Path 1.52 +4 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.51 retrieving revision 1.52 diff -u -p -r1.51 -r1.52 --- ChangeLog 2006/06/28 12:02:16 1.51 +++ ChangeLog 2006/07/04 20:08:46 1.52 ＠＠ -1,3 +1,7 ＠＠ +2006-07-04 Ville Skyttä <scop(a)xemacs.org> + + * vc-xemacs.el: Comment update. + 2006-06-28 Ville Skyttä <scop(a)xemacs.org> * vc.el: Sync with upstream. 1.7 +2 -1 XEmacs/packages/unsupported/scop/vc/vc-xemacs.el Index: vc-xemacs.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc-xemacs.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- vc-xemacs.el 2006/04/16 14:19:45 1.6 +++ vc-xemacs.el 2006/07/04 20:08:46 1.7 ＠＠ -46,11 +46,12 ＠＠ nil) file))) -;; These three are present in XEmacs >= 21.5 +;; These two are present in XEmacs >= 21.4.20 (unless (fboundp 'line-end-position) (defalias 'line-end-position 'point-at-eol)) (unless (fboundp 'line-beginning-position) (defalias 'line-beginning-position 'point-at-bol)) +;; ...and this in >= 21.5 (unless (fboundp 'line-number-at-pos) (defun line-number-at-pos (&optional pos) (line-number pos t)))

1 participants
0 comments

CVS update by vins xemacs/lisp ... 18 years, 4 months

CVS Monitor

User: vins Date: 06/07/04 15:18:06 Branch: xemacs/lisp release-21-4 Modified: xemacs/lisp ChangeLog obsolete.el Log: Add aliases for line-beginning-position and line-end-position. Revision Changes Path 1.266.2.95 +5 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.266.2.94 retrieving revision 1.266.2.95 diff -u -p -r1.266.2.94 -r1.266.2.95 --- ChangeLog 2006/07/01 05:19:41 1.266.2.94 +++ ChangeLog 2006/07/04 13:18:03 1.266.2.95 ＠＠ -1,3 +1,8 ＠＠ +2006-05-20 Ville Skyttä <scop(a)xemacs.org> + + * obsolete.el (line-beginning-position): New, from 21.5.x. + (line-end-position): Ditto. + 2006-06-03 Adrian Aichner <adrian(a)xemacs.org> * package-get.el (package-get-download-sites): Welcome 1.8.2.4 +3 -0 XEmacs/xemacs/lisp/obsolete.el Index: obsolete.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/obsolete.el,v retrieving revision 1.8.2.3 retrieving revision 1.8.2.4 diff -u -p -r1.8.2.3 -r1.8.2.4 --- obsolete.el 2004/01/27 02:58:13 1.8.2.3 +++ obsolete.el 2006/07/04 13:18:04 1.8.2.4 ＠＠ -269,6 +269,9 ＠＠ set Info-directory-list.") (define-compatible-function-alias 'assq-delete-all 'remassq) ;GNU 21.1 +(define-compatible-function-alias 'line-beginning-position 'point-at-bol) +(define-compatible-function-alias 'line-end-position 'point-at-eol) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline (define-compatible-function-alias 'redraw-mode-line 'redraw-modeline)

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

xemacs-cvs July 2006