Mercurial > hg > xemacs-beta

comparison lisp/modes/cc-mode.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 6b37e6ddd302
children
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
479 (defcustom c-special-indent-hook nil 479 (defcustom c-special-indent-hook nil
480 "*Hook for user defined special indentation adjustments. 480 "*Hook for user defined special indentation adjustments.
481 This hook gets called after a line is indented by the mode." 481 This hook gets called after a line is indented by the mode."
482 :type 'hook 482 :type 'hook
483 :group 'cc-indent) 483 :group 'cc-indent)
484 (defcustom c-delete-function (if (fboundp 'backspace-or-delete) 484 (defcustom c-delete-function (if (fboundp 'backward-or-forward-delete-char)
485 'backspace-or-delete 485 'backward-or-forward-delete-char
486 'backward-delete-char-untabify) 486 'backward-delete-char-untabify)
487 "*Function called by `c-electric-delete' when deleting characters." 487 "*Function called by `c-electric-delete' when deleting characters."
488 :type 'function 488 :type 'function
489 :group 'cc-mode) 489 :group 'cc-mode)
490 (defcustom c-electric-pound-behavior nil 490 (defcustom c-electric-pound-behavior nil
1950 (if (or (not c-hungry-delete-key) 1950 (if (or (not c-hungry-delete-key)
1951 arg 1951 arg
1952 (c-in-literal)) 1952 (c-in-literal))
1953 (funcall c-delete-function (prefix-numeric-value arg)) 1953 (funcall c-delete-function (prefix-numeric-value arg))
1954 (let ((here (point))) 1954 (let ((here (point)))
1955 (if (and (boundp 'delete-erases-forward) 1955 (if (and (boundp 'delete-key-deletes-forward)
1956 delete-erases-forward) 1956 delete-key-deletes-forward)
1957 (skip-chars-forward " \t\n") 1957 (skip-chars-forward " \t\n")
1958 (skip-chars-backward " \t\n")) 1958 (skip-chars-backward " \t\n"))
1959 (if (/= (point) here) 1959 (if (/= (point) here)
1960 (delete-region (point) here) 1960 (delete-region (point) here)
1961 (funcall c-delete-function 1))))) 1961 (funcall c-delete-function 1)))))