Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 3000:5df5ea55d3fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-18 20:49:41 by malcolmp] Sync of occur mode with GNU Emacs 22.0.50.1 (CVS)
author malcolmp
date Tue, 18 Oct 2005 20:49:43 +0000
parents 52f00344a629
children f17718066b5e
comparison
equal deleted inserted replaced
2999:77dd8b943765 3000:5df5ea55d3fc
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 ;; General Public License for more details. 22 ;; General Public License for more details.
23 23
24 ;; You should have received a copy of the GNU General Public License 24 ;; You should have received a copy of the GNU General Public License
25 ;; along with XEmacs; see the file COPYING. If not, write to the Free 25 ;; along with XEmacs; see the file COPYING. If not, write to the Free
26 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 26 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27 ;; 02111-1307, USA. 27 ;; Boston, MA 02110-1301, USA.
28 28
29 ;;; Synched up with: FSF 19.34. Some things synched up with later versions. 29 ;;; Synched up with: FSF 19.34. Some things synched up with later versions.
30 30
31 ;;; Commentary: 31 ;;; Commentary:
32 32
1618 (eval-after-load file (read))) 1618 (eval-after-load file (read)))
1619 (make-compatible 'eval-next-after-load "") 1619 (make-compatible 'eval-next-after-load "")
1620 1620
1621 ;; END SYNC WITH FSF 21.2 1621 ;; END SYNC WITH FSF 21.2
1622 1622
1623 ;; BEGIN SYNC WITH FSF 22.0.50.1 (CVS)
1624 (defun delete-dups (list)
1625 "Destructively remove `equal' duplicates from LIST.
1626 Store the result in LIST and return it. LIST must be a proper list.
1627 Of several `equal' occurrences of an element in LIST, the first
1628 one is kept."
1629 (let ((tail list))
1630 (while tail
1631 (setcdr tail (delete (car tail) (cdr tail)))
1632 (setq tail (cdr tail))))
1633 list)
1634
1635 ;; END SYNC WITH FSF 22.0.50.1 (CVS)
1636
1623 ;; (defun shell-quote-argument (argument) in process.el. 1637 ;; (defun shell-quote-argument (argument) in process.el.
1624 1638
1625 ;; (defun make-syntax-table (&optional oldtable) in syntax.el. 1639 ;; (defun make-syntax-table (&optional oldtable) in syntax.el.
1626 1640
1627 ;; (defun syntax-after (pos) #### doesn't exist. 1641 ;; (defun syntax-after (pos) #### doesn't exist.