modes.el

(defun php-closing-paren()
  "Adds a closing paren to the end of the current line, but before any semicolons, if present."
  (interactive)
  (save-excursion
    (setq now-until-eol (substring (buffer-string) (point) (line-end-position)))
    (whitespace-cleanup)
    (move-end-of-line nil)
    (while (eq (char-before (point)) 59)
      (backward-char 1))
    (insert ")")))